home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-05-21 | 27.5 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v20 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar 9 12|
|00000040| 3a 35 36 3a 35 30 20 31 | 39 39 38 0a 3b 3b 3b 20 |:56:50 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 76 69 70 65 |s-20.3/l|isp/vipe|
|000000a0| 72 2f 76 69 70 65 72 2d | 75 74 69 6c 2e 65 6c 0a |r/viper-|util.el.|
|000000b0| 3b 3b 3b 20 65 6d 61 63 | 73 20 76 65 72 73 69 6f |;;; emac|s versio|
|000000c0| 6e 20 32 30 2e 34 20 22 | 45 6d 65 72 61 6c 64 22 |n 20.4 "|Emerald"|
|000000d0| 20 58 45 6d 61 63 73 20 | 20 4c 75 63 69 64 2e 0a | XEmacs | Lucid..|
|000000e0| 3b 3b 3b 20 62 79 74 65 | 63 6f 6d 70 20 76 65 72 |;;; byte|comp ver|
|000000f0| 73 69 6f 6e 20 32 2e 32 | 35 20 58 45 6d 61 63 73 |sion 2.2|5 XEmacs|
|00000100| 3b 20 32 32 2d 4d 61 72 | 2d 39 36 2e 0a 3b 3b 3b |; 22-Mar|-96..;;;|
|00000110| 20 6f 70 74 69 6d 69 7a | 61 74 69 6f 6e 20 69 73 | optimiz|ation is|
|00000120| 20 6f 6e 2e 0a 3b 3b 3b | 20 74 68 69 73 20 66 69 | on..;;;| this fi|
|00000130| 6c 65 20 75 73 65 73 20 | 6f 70 63 6f 64 65 73 20 |le uses |opcodes |
|00000140| 77 68 69 63 68 20 64 6f | 20 6e 6f 74 20 65 78 69 |which do| not exi|
|00000150| 73 74 20 69 6e 20 45 6d | 61 63 73 20 31 39 2e 0a |st in Em|acs 19..|
|00000160| 0a 28 69 66 20 28 61 6e | 64 20 28 62 6f 75 6e 64 |.(if (an|d (bound|
|00000170| 70 20 27 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |p 'emacs|-version|
|00000180| 29 0a 09 20 28 6f 72 20 | 28 61 6e 64 20 28 62 6f |).. (or |(and (bo|
|00000190| 75 6e 64 70 20 27 65 70 | 6f 63 68 3a 3a 76 65 72 |undp 'ep|och::ver|
|000001a0| 73 69 6f 6e 29 20 65 70 | 6f 63 68 3a 3a 76 65 72 |sion) ep|och::ver|
|000001b0| 73 69 6f 6e 29 0a 09 20 | 20 20 20 20 28 73 74 72 |sion).. | (str|
|000001c0| 69 6e 67 2d 6c 65 73 73 | 70 20 65 6d 61 63 73 2d |ing-less|p emacs-|
|000001d0| 76 65 72 73 69 6f 6e 20 | 22 32 30 22 29 29 29 0a |version |"20"))).|
|000001e0| 20 20 20 20 28 65 72 72 | 6f 72 20 22 60 76 69 70 | (err|or "`vip|
|000001f0| 65 72 2d 75 74 69 6c 2e | 65 6c 27 20 77 61 73 20 |er-util.|el' was |
|00000200| 63 6f 6d 70 69 6c 65 64 | 20 66 6f 72 20 45 6d 61 |compiled| for Ema|
|00000210| 63 73 20 32 30 22 29 29 | 0a 0a 28 6f 72 20 28 62 |cs 20"))|..(or (b|
|00000220| 6f 75 6e 64 70 20 27 63 | 75 72 72 65 6e 74 2d 6c |oundp 'c|urrent-l|
|00000230| 6f 61 64 2d 6c 69 73 74 | 29 20 28 73 65 74 71 20 |oad-list|) (setq |
|00000240| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|00000250| 74 20 6e 69 6c 29 29 0a | 0a 0a 28 62 79 74 65 2d |t nil)).|..(byte-|
|00000260| 63 6f 64 65 20 22 c0 09 | 42 11 c2 09 42 11 c3 09 |code "..|B...B...|
|00000270| 42 11 c4 09 42 11 c5 09 | 42 11 c6 09 42 11 c7 09 |B...B...|B...B...|
|00000280| 42 11 c8 09 42 11 c9 09 | 42 11 ca 09 42 11 cb 09 |B...B...|B...B...|
|00000290| 42 11 cc 09 42 11 cd 09 | 42 11 ce cf 21 88 ce d0 |B...B...|B...!...|
|000002a0| 21 88 ce d1 21 88 d2 d3 | 21 ac 8a d2 d4 21 ab 85 |!...!...|!....!..|
|000002b0| d3 d4 4b 4d 88 d2 d5 21 | ac 8a d2 d6 21 ab 85 d5 |..KM...!|....!...|
|000002c0| d6 4b 4d 88 0e 17 ab c1 | d8 d9 4b 4d 88 da db 4b |.KM.....|..KM...K|
|000002d0| 4d 88 dc dd 4b 4d 88 de | df 4b 4d 88 e0 e1 4b 4d |M...KM..|.KM...KM|
|000002e0| 88 e2 e3 4b 4d 88 e4 e5 | 4b 4d 88 e6 e7 4b 4d 88 |...KM...|KM...KM.|
|000002f0| e8 20 ab 85 e9 ea 4b 4d | 88 eb 20 ab cb ec ed 4b |. ....KM|.. ....K|
|00000300| 4d 88 ee ef 4b 4d 88 aa | bf d8 f0 4b 4d 88 da f1 |M...KM..|...KM...|
|00000310| 4b 4d 88 dc f2 4b 4d 88 | de f3 4b 4d 88 e0 f4 4b |KM...KM.|..KM...K|
|00000320| 4d 88 e2 f5 4b 4d 88 e4 | f6 4b 4d 88 e6 f7 4b 4d |M...KM..|.KM...KM|
|00000330| 88 e8 20 ab 85 e9 f8 4b | 4d 88 eb 20 ab 8a ec f9 |.. ....K|M.. ....|
|00000340| 4b 4d 88 ee d5 4b 4d 88 | fa 0e 17 ab 83 fb aa 81 |KM...KM.|........|
|00000350| fc 4b 4d 87 22 20 5b 76 | 69 70 65 72 2d 6f 76 65 |.KM." [v|iper-ove|
|00000360| 72 72 69 64 69 6e 67 2d | 6d 61 70 20 63 75 72 72 |rriding-|map curr|
|00000370| 65 6e 74 2d 6c 6f 61 64 | 2d 6c 69 73 74 20 70 6d |ent-load|-list pm|
|00000380| 2d 63 6f 6c 6f 72 2d 61 | 6c 69 73 74 20 7a 6d 61 |-color-a|list zma|
|00000390| 63 73 2d 72 65 67 69 6f | 6e 2d 73 74 61 79 73 20 |cs-regio|n-stays |
|000003a0| 76 69 70 65 72 2d 6d 69 | 6e 69 62 75 66 66 65 72 |viper-mi|nibuffer|
|000003b0| 2d 63 75 72 72 65 6e 74 | 2d 66 61 63 65 20 76 69 |-current|-face vi|
|000003c0| 70 65 72 2d 6d 69 6e 69 | 62 75 66 66 65 72 2d 69 |per-mini|buffer-i|
|000003d0| 6e 73 65 72 74 2d 66 61 | 63 65 20 76 69 70 65 72 |nsert-fa|ce viper|
|000003e0| 2d 6d 69 6e 69 62 75 66 | 66 65 72 2d 76 69 2d 66 |-minibuf|fer-vi-f|
|000003f0| 61 63 65 20 76 69 70 65 | 72 2d 6d 69 6e 69 62 75 |ace vipe|r-minibu|
|00000400| 66 66 65 72 2d 65 6d 61 | 63 73 2d 66 61 63 65 20 |ffer-ema|cs-face |
|00000410| 76 69 70 65 72 2d 72 65 | 70 6c 61 63 65 2d 6f 76 |viper-re|place-ov|
|00000420| 65 72 6c 61 79 2d 66 61 | 63 65 20 76 69 70 65 72 |erlay-fa|ce viper|
|00000430| 2d 66 61 73 74 2d 6b 65 | 79 73 65 71 2d 74 69 6d |-fast-ke|yseq-tim|
|00000440| 65 6f 75 74 20 65 78 2d | 75 6e 69 78 2d 74 79 70 |eout ex-|unix-typ|
|00000450| 65 2d 73 68 65 6c 6c 20 | 65 78 2d 75 6e 69 78 2d |e-shell |ex-unix-|
|00000460| 74 79 70 65 2d 73 68 65 | 6c 6c 2d 6f 70 74 69 6f |type-she|ll-optio|
|00000470| 6e 73 20 76 69 70 65 72 | 2d 65 78 2d 74 6d 70 2d |ns viper|-ex-tmp-|
|00000480| 62 75 66 2d 6e 61 6d 65 | 20 76 69 70 65 72 2d 73 |buf-name| viper-s|
|00000490| 79 6e 74 61 78 2d 70 72 | 65 66 65 72 65 6e 63 65 |yntax-pr|eference|
|000004a0| 20 72 65 71 75 69 72 65 | 20 63 6c 20 72 69 6e 67 | require| cl ring|
|000004b0| 20 76 69 70 65 72 2d 69 | 6e 69 74 20 66 62 6f 75 | viper-i|nit fbou|
|000004c0| 6e 64 70 20 78 2d 64 69 | 73 70 6c 61 79 2d 63 6f |ndp x-di|splay-co|
|000004d0| 6c 6f 72 2d 70 20 6e 73 | 2d 64 69 73 70 6c 61 79 |lor-p ns|-display|
|000004e0| 2d 63 6f 6c 6f 72 2d 70 | 20 78 2d 63 6f 6c 6f 72 |-color-p| x-color|
|000004f0| 2d 64 65 66 69 6e 65 64 | 2d 70 20 6e 73 2d 63 6f |-defined|-p ns-co|
|00000500| 6c 6f 72 2d 64 65 66 69 | 6e 65 64 2d 70 20 76 69 |lor-defi|ned-p vi|
|00000510| 70 65 72 2d 78 65 6d 61 | 63 73 2d 70 20 76 69 70 |per-xema|cs-p vip|
|00000520| 65 72 2d 72 65 61 64 2d | 65 76 65 6e 74 20 6e 65 |er-read-|event ne|
|00000530| 78 74 2d 63 6f 6d 6d 61 | 6e 64 2d 65 76 65 6e 74 |xt-comma|nd-event|
|00000540| 20 76 69 70 65 72 2d 6d | 61 6b 65 2d 6f 76 65 72 | viper-m|ake-over|
|00000550| 6c 61 79 20 6d 61 6b 65 | 2d 65 78 74 65 6e 74 20 |lay make|-extent |
|00000560| 76 69 70 65 72 2d 6f 76 | 65 72 6c 61 79 2d 73 74 |viper-ov|erlay-st|
|00000570| 61 72 74 20 65 78 74 65 | 6e 74 2d 73 74 61 72 74 |art exte|nt-start|
|00000580| 2d 70 6f 73 69 74 69 6f | 6e 20 76 69 70 65 72 2d |-positio|n viper-|
|00000590| 6f 76 65 72 6c 61 79 2d | 65 6e 64 20 65 78 74 65 |overlay-|end exte|
|000005a0| 6e 74 2d 65 6e 64 2d 70 | 6f 73 69 74 69 6f 6e 20 |nt-end-p|osition |
|000005b0| 76 69 70 65 72 2d 6f 76 | 65 72 6c 61 79 2d 70 75 |viper-ov|erlay-pu|
|000005c0| 74 20 73 65 74 2d 65 78 | 74 65 6e 74 2d 70 72 6f |t set-ex|tent-pro|
|000005d0| 70 65 72 74 79 20 76 69 | 70 65 72 2d 6f 76 65 72 |perty vi|per-over|
|000005e0| 6c 61 79 2d 70 20 65 78 | 74 65 6e 74 70 20 76 69 |lay-p ex|tentp vi|
|000005f0| 70 65 72 2d 6f 76 65 72 | 6c 61 79 2d 67 65 74 20 |per-over|lay-get |
|00000600| 65 78 74 65 6e 74 2d 70 | 72 6f 70 65 72 74 79 20 |extent-p|roperty |
|00000610| 76 69 70 65 72 2d 6d 6f | 76 65 2d 6f 76 65 72 6c |viper-mo|ve-overl|
|00000620| 61 79 20 73 65 74 2d 65 | 78 74 65 6e 74 2d 65 6e |ay set-e|xtent-en|
|00000630| 64 70 6f 69 6e 74 73 20 | 76 69 70 65 72 2d 77 69 |dpoints |viper-wi|
|00000640| 6e 64 6f 77 2d 64 69 73 | 70 6c 61 79 2d 70 20 76 |ndow-dis|play-p v|
|00000650| 69 70 65 72 2d 69 63 6f | 6e 69 66 79 20 69 63 6f |iper-ico|nify ico|
|00000660| 6e 69 66 79 2d 66 72 61 | 6d 65 20 76 69 70 65 72 |nify-fra|me viper|
|00000670| 2d 68 61 73 2d 66 61 63 | 65 2d 73 75 70 70 6f 72 |-has-fac|e-suppor|
|00000680| 74 2d 70 20 76 69 70 65 | 72 2d 67 65 74 2d 66 61 |t-p vipe|r-get-fa|
|00000690| 63 65 20 67 65 74 2d 66 | 61 63 65 20 76 69 70 65 |ce get-f|ace vipe|
|000006a0| 72 2d 63 6f 6c 6f 72 2d | 64 65 66 69 6e 65 64 2d |r-color-|defined-|
|000006b0| 70 20 76 61 6c 69 64 2d | 63 6f 6c 6f 72 2d 6e 61 |p valid-|color-na|
|000006c0| 6d 65 2d 70 20 72 65 61 | 64 2d 65 76 65 6e 74 20 |me-p rea|d-event |
|000006d0| 6d 61 6b 65 2d 6f 76 65 | 72 6c 61 79 20 6f 76 65 |make-ove|rlay ove|
|000006e0| 72 6c 61 79 2d 73 74 61 | 72 74 20 6f 76 65 72 6c |rlay-sta|rt overl|
|000006f0| 61 79 2d 65 6e 64 20 6f | 76 65 72 6c 61 79 2d 70 |ay-end o|verlay-p|
|00000700| 75 74 20 6f 76 65 72 6c | 61 79 70 20 6f 76 65 72 |ut overl|ayp over|
|00000710| 6c 61 79 2d 67 65 74 20 | 6d 6f 76 65 2d 6f 76 65 |lay-get |move-ove|
|00000720| 72 6c 61 79 20 69 63 6f | 6e 69 66 79 2d 6f 72 2d |rlay ico|nify-or-|
|00000730| 64 65 69 63 6f 6e 69 66 | 79 2d 66 72 61 6d 65 20 |deiconif|y-frame |
|00000740| 69 6e 74 65 72 6e 61 6c | 2d 67 65 74 2d 66 61 63 |internal|-get-fac|
|00000750| 65 20 76 69 70 65 72 2d | 63 68 61 72 61 63 74 65 |e viper-|characte|
|00000760| 72 70 20 63 68 61 72 61 | 63 74 65 72 70 20 69 6e |rp chara|cterp in|
|00000770| 74 65 67 65 72 70 5d 20 | 32 29 0a 28 64 65 66 61 |tegerp] |2).(defa|
|00000780| 6c 69 61 73 20 27 76 69 | 70 65 72 2d 63 6f 6c 6f |lias 'vi|per-colo|
|00000790| 72 2d 64 69 73 70 6c 61 | 79 2d 70 20 23 5b 6e 69 |r-displa|y-p #[ni|
|000007a0| 6c 20 22 08 ab 83 c1 20 | 87 c2 c3 20 21 c4 61 87 |l ".... |... !.a.|
|000007b0| 22 20 5b 76 69 70 65 72 | 2d 65 6d 61 63 73 2d 70 |" [viper|-emacs-p|
|000007c0| 20 78 2d 64 69 73 70 6c | 61 79 2d 63 6f 6c 6f 72 | x-displ|ay-color|
|000007d0| 2d 70 20 64 65 76 69 63 | 65 2d 63 6c 61 73 73 20 |-p devic|e-class |
|000007e0| 73 65 6c 65 63 74 65 64 | 2d 64 65 76 69 63 65 20 |selected|-device |
|000007f0| 63 6f 6c 6f 72 5d 20 32 | 5d 29 0a 28 62 79 74 65 |color] 2|]).(byte|
|00000800| 2d 63 6f 64 65 20 22 c0 | c1 4e c2 73 ac 85 c3 c4 |-code ".|.N.s....|
|00000810| c0 5c 22 88 c5 c0 c1 c6 | 23 87 22 20 5b 76 69 70 |.\".....|#." [vip|
|00000820| 65 72 2d 63 6f 6c 6f 72 | 2d 64 69 73 70 6c 61 79 |er-color|-display|
|00000830| 2d 70 20 62 79 74 65 2d | 6f 70 74 69 6d 69 7a 65 |-p byte-|optimize|
|00000840| 72 20 28 6e 69 6c 20 62 | 79 74 65 2d 63 6f 6d 70 |r (nil b|yte-comp|
|00000850| 69 6c 65 2d 69 6e 6c 69 | 6e 65 2d 65 78 70 61 6e |ile-inli|ne-expan|
|00000860| 64 29 20 65 72 72 6f 72 | 20 22 25 73 20 61 6c 72 |d) error| "%s alr|
|00000870| 65 61 64 79 20 68 61 73 | 20 61 20 62 79 74 65 2d |eady has| a byte-|
|00000880| 6f 70 74 69 6d 69 7a 65 | 72 2c 20 63 61 6e 27 74 |optimize|r, can't|
|00000890| 20 6d 61 6b 65 20 69 74 | 20 69 6e 6c 69 6e 65 22 | make it| inline"|
|000008a0| 20 70 75 74 20 62 79 74 | 65 2d 63 6f 6d 70 69 6c | put byt|e-compil|
|000008b0| 65 2d 69 6e 6c 69 6e 65 | 2d 65 78 70 61 6e 64 5d |e-inline|-expand]|
|000008c0| 20 34 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 76 | 4).(def|alias 'v|
|000008d0| 69 70 65 72 2d 67 65 74 | 2d 63 75 72 73 6f 72 2d |iper-get|-cursor-|
|000008e0| 63 6f 6c 6f 72 20 23 5b | 6e 69 6c 20 22 08 ab 87 |color #[|nil "...|
|000008f0| c1 c2 c3 20 5c 22 41 87 | c4 c5 c6 20 c2 5c 22 21 |... \"A.|... .\"!|
|00000900| 87 22 20 5b 76 69 70 65 | 72 2d 65 6d 61 63 73 2d |." [vipe|r-emacs-|
|00000910| 70 20 61 73 73 6f 63 20 | 63 75 72 73 6f 72 2d 63 |p assoc |cursor-c|
|00000920| 6f 6c 6f 72 20 66 72 61 | 6d 65 2d 70 61 72 61 6d |olor fra|me-param|
|00000930| 65 74 65 72 73 20 63 6f | 6c 6f 72 2d 69 6e 73 74 |eters co|lor-inst|
|00000940| 61 6e 63 65 2d 6e 61 6d | 65 20 66 72 61 6d 65 2d |ance-nam|e frame-|
|00000950| 70 72 6f 70 65 72 74 79 | 20 73 65 6c 65 63 74 65 |property| selecte|
|00000960| 64 2d 66 72 61 6d 65 5d | 20 34 5d 29 0a 28 62 79 |d-frame]| 4]).(by|
|00000970| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 4e c2 73 ac 85 |te-code |"..N.s..|
|00000980| c3 c4 c0 5c 22 88 c5 c0 | c1 c6 23 88 0e 07 ab 84 |...\"...|..#.....|
|00000990| 0e 08 aa 84 c9 ca 20 21 | cb 61 ab 84 cc cd 4d 88 |...... !|.a....M.|
|000009a0| c0 87 22 20 5b 76 69 70 | 65 72 2d 67 65 74 2d 63 |.." [vip|er-get-c|
|000009b0| 75 72 73 6f 72 2d 63 6f | 6c 6f 72 20 62 79 74 65 |ursor-co|lor byte|
|000009c0| 2d 6f 70 74 69 6d 69 7a | 65 72 20 28 6e 69 6c 20 |-optimiz|er (nil |
|000009d0| 62 79 74 65 2d 63 6f 6d | 70 69 6c 65 2d 69 6e 6c |byte-com|pile-inl|
|000009e0| 69 6e 65 2d 65 78 70 61 | 6e 64 29 20 65 72 72 6f |ine-expa|nd) erro|
|000009f0| 72 20 22 25 73 20 61 6c | 72 65 61 64 79 20 68 61 |r "%s al|ready ha|
|00000a00| 73 20 61 20 62 79 74 65 | 2d 6f 70 74 69 6d 69 7a |s a byte|-optimiz|
|00000a10| 65 72 2c 20 63 61 6e 27 | 74 20 6d 61 6b 65 20 69 |er, can'|t make i|
|00000a20| 74 20 69 6e 6c 69 6e 65 | 22 20 70 75 74 20 62 79 |t inline|" put by|
|00000a30| 74 65 2d 63 6f 6d 70 69 | 6c 65 2d 69 6e 6c 69 6e |te-compi|le-inlin|
|00000a40| 65 2d 65 78 70 61 6e 64 | 20 76 69 70 65 72 2d 65 |e-expand| viper-e|
|00000a50| 6d 61 63 73 2d 70 20 77 | 69 6e 64 6f 77 2d 73 79 |macs-p w|indow-sy|
|00000a60| 73 74 65 6d 20 64 65 76 | 69 63 65 2d 74 79 70 65 |stem dev|ice-type|
|00000a70| 20 73 65 6c 65 63 74 65 | 64 2d 64 65 76 69 63 65 | selecte|d-device|
|00000a80| 20 70 6d 20 76 69 70 65 | 72 2d 63 6f 6c 6f 72 2d | pm vipe|r-color-|
|00000a90| 64 65 66 69 6e 65 64 2d | 70 20 23 5b 28 63 6f 6c |defined-|p #[(col|
|00000aa0| 6f 72 29 20 22 c0 09 5c | 6e 5c 22 87 22 20 5b 61 |or) "..\|n\"." [a|
|00000ab0| 73 73 6f 63 20 63 6f 6c | 6f 72 20 70 6d 2d 63 6f |ssoc col|or pm-co|
|00000ac0| 6c 6f 72 2d 61 6c 69 73 | 74 5d 20 33 5d 5d 20 34 |lor-alis|t] 3]] 4|
|00000ad0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 76 69 70 |).(defal|ias 'vip|
|00000ae0| 65 72 2d 63 68 61 6e 67 | 65 2d 63 75 72 73 6f 72 |er-chang|e-cursor|
|00000af0| 2d 63 6f 6c 6f 72 20 23 | 5b 28 6e 65 77 2d 63 6f |-color #|[(new-co|
|00000b00| 6c 6f 72 29 20 22 c0 20 | ad bb 09 ab 84 c2 20 aa |lor) ". |...... .|
|00000b10| 86 c3 c4 20 21 c5 61 ad | ac 0e 06 3b ad a7 c7 0e |... !.a.|...;....|
|00000b20| 06 21 ad a1 0e 06 09 ab | 88 c8 c9 ca 20 5c 22 41 |.!......|.... \"A|
|00000b30| aa 87 cb cc cd 20 c9 5c | 22 21 98 3f ad 89 ce cd |..... .\|"!.?....|
|00000b40| 20 c9 0e 06 42 43 5c 22 | 87 22 20 5b 76 69 70 65 | ...BC\"|." [vipe|
|00000b50| 72 2d 77 69 6e 64 6f 77 | 2d 64 69 73 70 6c 61 79 |r-window|-display|
|00000b60| 2d 70 20 76 69 70 65 72 | 2d 65 6d 61 63 73 2d 70 |-p viper|-emacs-p|
|00000b70| 20 78 2d 64 69 73 70 6c | 61 79 2d 63 6f 6c 6f 72 | x-displ|ay-color|
|00000b80| 2d 70 20 64 65 76 69 63 | 65 2d 63 6c 61 73 73 20 |-p devic|e-class |
|00000b90| 73 65 6c 65 63 74 65 64 | 2d 64 65 76 69 63 65 20 |selected|-device |
|00000ba0| 63 6f 6c 6f 72 20 6e 65 | 77 2d 63 6f 6c 6f 72 20 |color ne|w-color |
|00000bb0| 76 69 70 65 72 2d 63 6f | 6c 6f 72 2d 64 65 66 69 |viper-co|lor-defi|
|00000bc0| 6e 65 64 2d 70 20 61 73 | 73 6f 63 20 63 75 72 73 |ned-p as|soc curs|
|00000bd0| 6f 72 2d 63 6f 6c 6f 72 | 20 66 72 61 6d 65 2d 70 |or-color| frame-p|
|00000be0| 61 72 61 6d 65 74 65 72 | 73 20 63 6f 6c 6f 72 2d |arameter|s color-|
|00000bf0| 69 6e 73 74 61 6e 63 65 | 2d 6e 61 6d 65 20 66 72 |instance|-name fr|
|00000c00| 61 6d 65 2d 70 72 6f 70 | 65 72 74 79 20 73 65 6c |ame-prop|erty sel|
|00000c10| 65 63 74 65 64 2d 66 72 | 61 6d 65 20 6d 6f 64 69 |ected-fr|ame modi|
|00000c20| 66 79 2d 66 72 61 6d 65 | 2d 70 61 72 61 6d 65 74 |fy-frame|-paramet|
|00000c30| 65 72 73 5d 20 35 5d 29 | 0a 28 64 65 66 61 6c 69 |ers] 5])|.(defali|
|00000c40| 61 73 20 27 76 69 70 65 | 72 2d 73 61 76 65 2d 63 |as 'vipe|r-save-c|
|00000c50| 75 72 73 6f 72 2d 63 6f | 6c 6f 72 20 23 5b 6e 69 |ursor-co|lor #[ni|
|00000c60| 6c 20 22 c0 20 ad b9 09 | ab 84 c2 20 aa 86 c3 c4 |l ". ...|... ....|
|00000c70| 20 21 c5 61 ad aa 09 ab | 88 c6 c7 c8 20 5c 22 41 | !.a....|.... \"A|
|00000c80| aa 87 c9 ca cb 20 c7 5c | 22 21 89 1d 3b ad 92 cc |..... .\|"!..;...|
|00000c90| 0d 21 ad 8d 0d 0e 0d 98 | 3f ad 86 ce 0e 0f d0 0d |.!......|?.......|
|00000ca0| 23 29 87 22 20 5b 76 69 | 70 65 72 2d 77 69 6e 64 |#)." [vi|per-wind|
|00000cb0| 6f 77 2d 64 69 73 70 6c | 61 79 2d 70 20 76 69 70 |ow-displ|ay-p vip|
|00000cc0| 65 72 2d 65 6d 61 63 73 | 2d 70 20 78 2d 64 69 73 |er-emacs|-p x-dis|
|00000cd0| 70 6c 61 79 2d 63 6f 6c | 6f 72 2d 70 20 64 65 76 |play-col|or-p dev|
|00000ce0| 69 63 65 2d 63 6c 61 73 | 73 20 73 65 6c 65 63 74 |ice-clas|s select|
|00000cf0| 65 64 2d 64 65 76 69 63 | 65 20 63 6f 6c 6f 72 20 |ed-devic|e color |
|00000d00| 61 73 73 6f 63 20 63 75 | 72 73 6f 72 2d 63 6f 6c |assoc cu|rsor-col|
|00000d10| 6f 72 20 66 72 61 6d 65 | 2d 70 61 72 61 6d 65 74 |or frame|-paramet|
|00000d20| 65 72 73 20 63 6f 6c 6f | 72 2d 69 6e 73 74 61 6e |ers colo|r-instan|
|00000d30| 63 65 2d 6e 61 6d 65 20 | 66 72 61 6d 65 2d 70 72 |ce-name |frame-pr|
|00000d40| 6f 70 65 72 74 79 20 73 | 65 6c 65 63 74 65 64 2d |operty s|elected-|
|00000d50| 66 72 61 6d 65 20 76 69 | 70 65 72 2d 63 6f 6c 6f |frame vi|per-colo|
|00000d60| 72 2d 64 65 66 69 6e 65 | 64 2d 70 20 76 69 70 65 |r-define|d-p vipe|
|00000d70| 72 2d 72 65 70 6c 61 63 | 65 2d 6f 76 65 72 6c 61 |r-replac|e-overla|
|00000d80| 79 2d 63 75 72 73 6f 72 | 2d 63 6f 6c 6f 72 20 76 |y-cursor|-color v|
|00000d90| 69 70 65 72 2d 6f 76 65 | 72 6c 61 79 2d 70 75 74 |iper-ove|rlay-put|
|00000da0| 20 76 69 70 65 72 2d 72 | 65 70 6c 61 63 65 2d 6f | viper-r|eplace-o|
|00000db0| 76 65 72 6c 61 79 20 76 | 69 70 65 72 2d 63 75 72 |verlay v|iper-cur|
|00000dc0| 73 6f 72 2d 63 6f 6c 6f | 72 5d 20 35 5d 29 0a 28 |sor-colo|r] 5]).(|
|00000dd0| 64 65 66 61 6c 69 61 73 | 20 27 76 69 70 65 72 2d |defalias| 'viper-|
|00000de0| 72 65 73 74 6f 72 65 2d | 63 75 72 73 6f 72 2d 63 |restore-|cursor-c|
|00000df0| 6f 6c 6f 72 2d 61 66 74 | 65 72 2d 72 65 70 6c 61 |olor-aft|er-repla|
|00000e00| 63 65 20 23 5b 6e 69 6c | 20 22 c0 c1 5c 6e c3 5c |ce #[nil| "..\n.\|
|00000e10| 22 21 87 22 20 5b 76 69 | 70 65 72 2d 63 68 61 6e |"!." [vi|per-chan|
|00000e20| 67 65 2d 63 75 72 73 6f | 72 2d 63 6f 6c 6f 72 20 |ge-curso|r-color |
|00000e30| 76 69 70 65 72 2d 6f 76 | 65 72 6c 61 79 2d 67 65 |viper-ov|erlay-ge|
|00000e40| 74 20 76 69 70 65 72 2d | 72 65 70 6c 61 63 65 2d |t viper-|replace-|
|00000e50| 6f 76 65 72 6c 61 79 20 | 76 69 70 65 72 2d 63 75 |overlay |viper-cu|
|00000e60| 72 73 6f 72 2d 63 6f 6c | 6f 72 5d 20 34 5d 29 0a |rsor-col|or] 4]).|
|00000e70| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 4e c2 |(byte-co|de "..N.|
|00000e80| 73 ac 85 c3 c4 c0 5c 22 | 88 c5 c0 c1 c6 23 87 22 |s.....\"|.....#."|
|00000e90| 20 5b 76 69 70 65 72 2d | 72 65 73 74 6f 72 65 2d | [viper-|restore-|
|00000ea0| 63 75 72 73 6f 72 2d 63 | 6f 6c 6f 72 2d 61 66 74 |cursor-c|olor-aft|
|00000eb0| 65 72 2d 72 65 70 6c 61 | 63 65 20 62 79 74 65 2d |er-repla|ce byte-|
|00000ec0| 6f 70 74 69 6d 69 7a 65 | 72 20 28 6e 69 6c 20 62 |optimize|r (nil b|
|00000ed0| 79 74 65 2d 63 6f 6d 70 | 69 6c 65 2d 69 6e 6c 69 |yte-comp|ile-inli|
|00000ee0| 6e 65 2d 65 78 70 61 6e | 64 29 20 65 72 72 6f 72 |ne-expan|d) error|
|00000ef0| 20 22 25 73 20 61 6c 72 | 65 61 64 79 20 68 61 73 | "%s alr|eady has|
|00000f00| 20 61 20 62 79 74 65 2d | 6f 70 74 69 6d 69 7a 65 | a byte-|optimize|
|00000f10| 72 2c 20 63 61 6e 27 74 | 20 6d 61 6b 65 20 69 74 |r, can't| make it|
|00000f20| 20 69 6e 6c 69 6e 65 22 | 20 70 75 74 20 62 79 74 | inline"| put byt|
|00000f30| 65 2d 63 6f 6d 70 69 6c | 65 2d 69 6e 6c 69 6e 65 |e-compil|e-inline|
|00000f40| 2d 65 78 70 61 6e 64 5d | 20 34 29 0a 28 64 65 66 |-expand]| 4).(def|
|00000f50| 61 6c 69 61 73 20 27 76 | 69 70 65 72 2d 72 65 73 |alias 'v|iper-res|
|00000f60| 74 6f 72 65 2d 63 75 72 | 73 6f 72 2d 63 6f 6c 6f |tore-cur|sor-colo|
|00000f70| 72 2d 61 66 74 65 72 2d | 69 6e 73 65 72 74 20 23 |r-after-|insert #|
|00000f80| 5b 6e 69 6c 20 22 c0 09 | 21 87 22 20 5b 76 69 70 |[nil "..|!." [vip|
|00000f90| 65 72 2d 63 68 61 6e 67 | 65 2d 63 75 72 73 6f 72 |er-chang|e-cursor|
|00000fa0| 2d 63 6f 6c 6f 72 20 76 | 69 70 65 72 2d 73 61 76 |-color v|iper-sav|
|00000fb0| 65 64 2d 63 75 72 73 6f | 72 2d 63 6f 6c 6f 72 5d |ed-curso|r-color]|
|00000fc0| 20 32 5d 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 | 2]).(by|te-code |
|00000fd0| 22 c0 c1 4e c2 73 ac 85 | c3 c4 c0 5c 22 88 c5 c0 |"..N.s..|...\"...|
|00000fe0| c1 c6 23 87 22 20 5b 76 | 69 70 65 72 2d 72 65 73 |..#." [v|iper-res|
|00000ff0| 74 6f 72 65 2d 63 75 72 | 73 6f 72 2d 63 6f 6c 6f |tore-cur|sor-colo|
|00001000| 72 2d 61 66 74 65 72 2d | 69 6e 73 65 72 74 20 62 |r-after-|insert b|
|00001010| 79 74 65 2d 6f 70 74 69 | 6d 69 7a 65 72 20 28 6e |yte-opti|mizer (n|
|00001020| 69 6c 20 62 79 74 65 2d | 63 6f 6d 70 69 6c 65 2d |il byte-|compile-|
|00001030| 69 6e 6c 69 6e 65 2d 65 | 78 70 61 6e 64 29 20 65 |inline-e|xpand) e|
|00001040| 72 72 6f 72 20 22 25 73 | 20 61 6c 72 65 61 64 79 |rror "%s| already|
|00001050| 20 68 61 73 20 61 20 62 | 79 74 65 2d 6f 70 74 69 | has a b|yte-opti|
|00001060| 6d 69 7a 65 72 2c 20 63 | 61 6e 27 74 20 6d 61 6b |mizer, c|an't mak|
|00001070| 65 20 69 74 20 69 6e 6c | 69 6e 65 22 20 70 75 74 |e it inl|ine" put|
|00001080| 20 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 2d 69 6e | byte-co|mpile-in|
|00001090| 6c 69 6e 65 2d 65 78 70 | 61 6e 64 5d 20 34 29 0a |line-exp|and] 4).|
|000010a0| 28 64 65 66 61 6c 69 61 | 73 20 27 76 69 70 65 72 |(defalia|s 'viper|
|000010b0| 2d 63 68 65 63 6b 2d 76 | 65 72 73 69 6f 6e 20 23 |-check-v|ersion #|
|000010c0| 5b 28 6f 70 20 6d 61 6a | 6f 72 20 6d 69 6e 6f 72 |[(op maj|or minor|
|000010d0| 20 26 6f 70 74 69 6f 6e | 61 6c 20 74 79 70 65 2d | &option|al type-|
|000010e0| 6f 66 2d 65 6d 61 63 73 | 29 20 22 c0 c1 21 ab d3 |of-emacs|) "..!..|
|000010f0| c0 c2 21 ab ce 0b c4 61 | ab 83 0d aa 8a 0b c6 61 |..!....a|.......a|
|00001100| ab 84 0e 07 aa 81 c8 ad | c9 0e 09 ca 61 ab 8b 5c |........|....a..\|
|00001110| 6e 0e 0b 55 ad ad 09 0e | 0c 55 87 0e 09 cd 73 ab |n..U....|.U....s.|
|00001120| 9d 0e 09 09 0e 0c 5c 22 | ac 86 09 0e 0c 55 ad 94 |......\"|.....U..|
|00001130| 09 0e 0c 55 ab 87 0e 09 | 5c 6e 0e 0b 5c 22 87 c8 |...U....|\n..\"..|
|00001140| 87 ce cf 0e 09 5c 22 87 | 0e 09 d0 73 ab 82 d1 87 |.....\".|...s....|
|00001150| 0e 09 d2 73 ad 81 c8 87 | 22 20 5b 62 6f 75 6e 64 |...s....|" [bound|
|00001160| 70 20 65 6d 61 63 73 2d | 6d 61 6a 6f 72 2d 76 65 |p emacs-|major-ve|
|00001170| 72 73 69 6f 6e 20 65 6d | 61 63 73 2d 6d 69 6e 6f |rsion em|acs-mino|
|00001180| 72 2d 76 65 72 73 69 6f | 6e 20 74 79 70 65 2d 6f |r-versio|n type-o|
|00001190| 66 2d 65 6d 61 63 73 20 | 78 65 6d 61 63 73 20 76 |f-emacs |xemacs v|
|000011a0| 69 70 65 72 2d 78 65 6d | 61 63 73 2d 70 20 65 6d |iper-xem|acs-p em|
|000011b0| 61 63 73 20 76 69 70 65 | 72 2d 65 6d 61 63 73 2d |acs vipe|r-emacs-|
|000011c0| 70 20 74 20 6f 70 20 3d | 20 6d 69 6e 6f 72 20 6d |p t op =| minor m|
|000011d0| 61 6a 6f 72 20 28 3e 20 | 3e 3d 20 3c 20 3c 3d 29 |ajor (> |>= < <=)|
|000011e0| 20 65 72 72 6f 72 20 22 | 25 53 3a 20 49 6e 76 61 | error "|%S: Inva|
|000011f0| 6c 69 64 20 6f 70 20 69 | 6e 20 76 69 70 65 72 2d |lid op i|n viper-|
|00001200| 63 68 65 63 6b 2d 76 65 | 72 73 69 6f 6e 22 20 28 |check-ve|rsion" (|
|00001210| 3d 20 3e 20 3e 3d 29 20 | 6e 69 6c 20 28 3c 20 3c |= > >=) |nil (< <|
|00001220| 3d 29 5d 20 33 5d 29 0a | 28 64 65 66 61 6c 69 61 |=)] 3]).|(defalia|
|00001230| 73 20 27 76 69 70 65 72 | 2d 67 65 74 2d 76 69 73 |s 'viper|-get-vis|
|00001240| 69 62 6c 65 2d 62 75 66 | 66 65 72 2d 77 69 6e 64 |ible-buf|fer-wind|
|00001250| 6f 77 20 23 5b 28 77 69 | 6e 64 29 20 22 08 ab 85 |ow #[(wi|nd) "...|
|00001260| c1 5c 6e c3 5c 22 87 c1 | 5c 6e c4 5c 22 87 22 20 |.\n.\"..|\n.\"." |
|00001270| 5b 76 69 70 65 72 2d 78 | 65 6d 61 63 73 2d 70 20 |[viper-x|emacs-p |
|00001280| 67 65 74 2d 62 75 66 66 | 65 72 2d 77 69 6e 64 6f |get-buff|er-windo|
|00001290| 77 20 77 69 6e 64 20 74 | 20 76 69 73 69 62 6c 65 |w wind t| visible|
|000012a0| 5d 20 33 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 3]).(d|efalias |
|000012b0| 27 76 69 70 65 72 2d 6c | 69 6e 65 2d 70 6f 73 20 |'viper-l|ine-pos |
|000012c0| 23 5b 28 70 6f 73 29 20 | 22 60 c0 19 1a 0b c4 6b |#[(pos) |"`.....k|
|000012d0| ab 85 c5 79 88 aa a4 0b | c6 6b ab 85 c0 7f 88 aa |...y....|.k......|
|000012e0| 9a 0b c7 6b ab 8d c8 c4 | 21 c8 c6 21 5c 5c c9 5c |...k....|!..!\\.\|
|000012f0| 5c 62 88 aa 88 0b ca 6b | ab 83 cb 20 88 60 11 5c |\b.....k|... .`.\|
|00001300| 6e 62 88 09 2a 87 22 20 | 5b 6e 69 6c 20 72 65 73 |nb..*." |[nil res|
|00001310| 75 6c 74 20 63 75 72 2d | 70 6f 73 20 70 6f 73 20 |ult cur-|pos pos |
|00001320| 73 74 61 72 74 20 30 20 | 65 6e 64 20 6d 69 64 20 |start 0 |end mid |
|00001330| 76 69 70 65 72 2d 6c 69 | 6e 65 2d 70 6f 73 20 32 |viper-li|ne-pos 2|
|00001340| 20 69 6e 64 65 6e 74 20 | 62 61 63 6b 2d 74 6f 2d | indent |back-to-|
|00001350| 69 6e 64 65 6e 74 61 74 | 69 6f 6e 5d 20 33 5d 29 |indentat|ion] 3])|
|00001360| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 76 69 70 65 |.(defali|as 'vipe|
|00001370| 72 2d 63 68 61 72 73 2d | 69 6e 2d 72 65 67 69 6f |r-chars-|in-regio|
|00001380| 6e 20 23 5b 28 62 65 67 | 20 65 6e 64 20 26 6f 70 |n #[(beg| end &op|
|00001390| 74 69 6f 6e 61 6c 20 70 | 72 65 73 65 72 76 65 2d |tional p|reserve-|
|000013a0| 73 69 67 6e 29 20 22 c0 | c1 c2 21 ab 86 c2 0b 0c |sign) ".|..!.....|
|000013b0| 5c 22 aa 83 0c 0b 5a 21 | 1d 0c 0b 57 ab 88 0e 06 |\"....Z!|...W....|
|000013c0| ab 84 0d 5b aa 81 0d 29 | 87 22 20 5b 61 62 73 20 |...[...)|." [abs |
|000013d0| 66 62 6f 75 6e 64 70 20 | 63 68 61 72 73 2d 69 6e |fboundp |chars-in|
|000013e0| 2d 72 65 67 69 6f 6e 20 | 62 65 67 20 65 6e 64 20 |-region |beg end |
|000013f0| 63 6f 75 6e 74 20 70 72 | 65 73 65 72 76 65 2d 73 |count pr|eserve-s|
|00001400| 69 67 6e 5d 20 34 5d 29 | 0a 28 64 65 66 61 6c 69 |ign] 4])|.(defali|
|00001410| 61 73 20 27 76 69 70 65 | 72 2d 70 6f 73 2d 77 69 |as 'vipe|r-pos-wi|
|00001420| 74 68 69 6e 2d 72 65 67 | 69 6f 6e 20 23 5b 28 70 |thin-reg|ion #[(p|
|00001430| 6f 73 20 62 65 67 20 65 | 6e 64 29 20 22 08 09 5c |os beg e|nd) "..\|
|00001440| 6e 5e 59 ad 85 09 5c 6e | 5d 08 59 87 22 20 5b 70 |n^Y...\n|].Y." [p|
|00001450| 6f 73 20 62 65 67 20 65 | 6e 64 5d 20 33 5d 29 0a |os beg e|nd] 3]).|
|00001460| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 4e c2 |(byte-co|de "..N.|
|00001470| 73 ac 85 c3 c4 c0 5c 22 | 88 c5 c0 c1 c6 23 87 22 |s.....\"|.....#."|
|00001480| 20 5b 76 69 70 65 72 2d | 70 6f 73 2d 77 69 74 68 | [viper-|pos-with|
|00001490| 69 6e 2d 72 65 67 69 6f | 6e 20 62 79 74 65 2d 6f |in-regio|n byte-o|
|000014a0| 70 74 69 6d 69 7a 65 72 | 20 28 6e 69 6c 20 62 79 |ptimizer| (nil by|
|000014b0| 74 65 2d 63 6f 6d 70 69 | 6c 65 2d 69 6e 6c 69 6e |te-compi|le-inlin|
|000014c0| 65 2d 65 78 70 61 6e 64 | 29 20 65 72 72 6f 72 20 |e-expand|) error |
|000014d0| 22 25 73 20 61 6c 72 65 | 61 64 79 20 68 61 73 20 |"%s alre|ady has |
|000014e0| 61 20 62 79 74 65 2d 6f | 70 74 69 6d 69 7a 65 72 |a byte-o|ptimizer|
|000014f0| 2c 20 63 61 6e 27 74 20 | 6d 61 6b 65 20 69 74 20 |, can't |make it |
|00001500| 69 6e 6c 69 6e 65 22 20 | 70 75 74 20 62 79 74 65 |inline" |put byte|
|00001510| 2d 63 6f 6d 70 69 6c 65 | 2d 69 6e 6c 69 6e 65 2d |-compile|-inline-|
|00001520| 65 78 70 61 6e 64 5d 20 | 34 29 0a 28 64 65 66 61 |expand] |4).(defa|
|00001530| 6c 69 61 73 20 27 76 69 | 70 65 72 2d 6d 6f 76 65 |lias 'vi|per-move|
|00001540| 2d 6d 61 72 6b 65 72 2d | 6c 6f 63 61 6c 6c 79 20 |-marker-|locally |
|00001550| 23 5b 28 76 61 72 20 70 | 6f 73 20 26 6f 70 74 69 |#[(var p|os &opti|
|00001560| 6f 6e 61 6c 20 62 75 66 | 66 65 72 29 20 22 c0 c1 |onal buf|fer) "..|
|00001570| 5c 6e 21 21 ac 85 5c 6e | c3 20 4c 88 c1 5c 6e 21 |\n!!..\n|. L..\n!|
|00001580| 0c 0d 93 87 22 20 5b 6d | 61 72 6b 65 72 70 20 65 |...." [m|arkerp e|
|00001590| 76 61 6c 20 76 61 72 20 | 6d 61 6b 65 2d 6d 61 72 |val var |make-mar|
|000015a0| 6b 65 72 20 70 6f 73 20 | 62 75 66 66 65 72 5d 20 |ker pos |buffer] |
|000015b0| 33 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 76 |3]).(def|alias 'v|
|000015c0| 69 70 65 72 2d 6d 65 73 | 73 61 67 65 2d 63 6f 6e |iper-mes|sage-con|
|000015d0| 64 69 74 69 6f 6e 73 20 | 23 5b 28 63 6f 6e 64 69 |ditions |#[(condi|
|000015e0| 74 69 6f 6e 73 29 20 22 | 08 40 08 41 19 1a 09 ac |tions) "|.@.A....|
|000015f0| 87 c3 c4 5c 6e 5c 22 88 | aa 8a c3 c5 5c 6e c6 c7 |...\n\".|....\n..|
|00001600| 09 c8 23 23 88 c9 ca 21 | 2a 87 22 20 5b 63 6f 6e |..##...!|*." [con|
|00001610| 64 69 74 69 6f 6e 73 20 | 6d 73 67 20 63 61 73 65 |ditions |msg case|
|00001620| 20 6d 65 73 73 61 67 65 | 20 22 25 73 22 20 22 25 | message| "%s" "%|
|00001630| 73 3a 20 25 73 22 20 6d | 61 70 63 6f 6e 63 61 74 |s: %s" m|apconcat|
|00001640| 20 70 72 69 6e 31 2d 74 | 6f 2d 73 74 72 69 6e 67 | prin1-t|o-string|
|00001650| 20 22 20 22 20 62 65 65 | 70 20 31 5d 20 37 5d 29 | " " bee|p 1] 7])|
|00001660| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 76 69 70 65 |.(defali|as 'vipe|
|00001670| 72 2d 6c 69 73 74 2d 74 | 6f 2d 61 6c 69 73 74 20 |r-list-t|o-alist |
|00001680| 23 5b 28 6c 73 74 29 20 | 22 c0 19 5c 6e ab 8c 5c |#[(lst) |"..\n..\|
|00001690| 6e 40 43 09 42 11 5c 6e | 41 89 12 ac 74 09 29 87 |n@C.B.\n|A...t.).|
|000016a0| 22 20 5b 6e 69 6c 20 61 | 6c 69 73 74 20 6c 73 74 |" [nil a|list lst|
|000016b0| 5d 20 33 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 3]).(d|efalias |
|000016c0| 27 76 69 70 65 72 2d 61 | 6c 69 73 74 2d 74 6f 2d |'viper-a|list-to-|
|000016d0| 6c 69 73 74 20 23 5b 28 | 61 6c 73 74 29 20 22 c0 |list #[(|alst) ".|
|000016e0| 19 5c 6e ab 8c 5c 6e 40 | 40 09 42 11 5c 6e 41 89 |.\n..\n@|@.B.\nA.|
|000016f0| 12 ac 74 09 29 87 22 20 | 5b 6e 69 6c 20 6c 73 74 |..t.)." |[nil lst|
|00001700| 20 61 6c 73 74 5d 20 33 | 5d 29 0a 28 64 65 66 61 | alst] 3|]).(defa|
|00001710| 6c 69 61 73 20 27 76 69 | 70 65 72 2d 66 69 6c 74 |lias 'vi|per-filt|
|00001720| 65 72 2d 61 6c 69 73 74 | 20 23 5b 28 72 65 67 65 |er-alist| #[(rege|
|00001730| 78 70 20 61 6c 73 74 29 | 20 22 c0 09 1a 1b 5c 6e |xp alst)| "....\n|
|00001740| 40 ab 93 c4 0d 5c 6e 40 | 40 5c 22 ab 85 5c 6e 40 |@....\n@|@\"..\n@|
|00001750| 0b 42 13 5c 6e 41 89 12 | aa 6a 0b 2a 87 22 20 5b |.B.\nA..|.j.*." [|
|00001760| 6e 69 6c 20 61 6c 73 74 | 20 69 6e 61 6c 73 74 20 |nil alst| inalst |
|00001770| 6f 75 74 61 6c 73 74 20 | 73 74 72 69 6e 67 2d 6d |outalst |string-m|
|00001780| 61 74 63 68 20 72 65 67 | 65 78 70 5d 20 34 20 6e |atch reg|exp] 4 n|
|00001790| 69 6c 20 22 73 20 78 22 | 5d 29 0a 28 64 65 66 61 |il "s x"|]).(defa|
|000017a0| 6c 69 61 73 20 27 76 69 | 70 65 72 2d 66 69 6c 74 |lias 'vi|per-filt|
|000017b0| 65 72 2d 6c 69 73 74 20 | 23 5b 28 72 65 67 65 78 |er-list |#[(regex|
|000017c0| 70 20 6c 73 74 29 20 22 | c0 09 1a 1b 5c 6e 40 ab |p lst) "|....\n@.|
|000017d0| 92 c4 0d 5c 6e 40 5c 22 | ab 85 5c 6e 40 0b 42 13 |...\n@\"|..\n@.B.|
|000017e0| 5c 6e 41 89 12 aa 6b 0b | 2a 87 22 20 5b 6e 69 6c |\nA...k.|*." [nil|
|000017f0| 20 6c 73 74 20 69 6e 6c | 73 74 20 6f 75 74 6c 73 | lst inl|st outls|
|00001800| 74 20 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 72 |t string|-match r|
|00001810| 65 67 65 78 70 5d 20 34 | 20 6e 69 6c 20 22 73 20 |egexp] 4| nil "s |
|00001820| 78 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |x"]).(de|falias '|
|00001830| 76 69 70 65 72 2d 61 70 | 70 65 6e 64 2d 66 69 6c |viper-ap|pend-fil|
|00001840| 74 65 72 2d 61 6c 69 73 | 74 20 23 5b 28 6c 69 73 |ter-alis|t #[(lis|
|00001850| 31 20 6c 69 73 32 29 20 | 22 08 c1 1a 89 1b ab 97 |1 lis2) |".......|
|00001860| c4 0b 40 40 0d 5c 22 89 | 12 ab 87 c6 5c 6e 0d 5c |..@@.\".|....\n.\|
|00001870| 22 15 aa 6f 0b 41 89 13 | ac 69 08 0d a4 2a 87 22 |"..o.A..|.i...*."|
|00001880| 20 5b 6c 69 73 31 20 6e | 69 6c 20 65 6c 74 20 74 | [lis1 n|il elt t|
|00001890| 65 6d 70 20 61 73 73 6f | 63 20 6c 69 73 32 20 64 |emp asso|c lis2 d|
|000018a0| 65 6c 71 5d 20 34 5d 29 | 0a 23 40 32 39 32 20 47 |elq] 4])|.#@292 G|
|000018b0| 6c 6f 62 20 74 68 65 20 | 66 69 6c 65 20 73 70 65 |lob the |file spe|
|000018c0| 63 20 61 6e 64 20 76 69 | 73 69 74 20 61 6c 6c 20 |c and vi|sit all |
|000018d0| 66 69 6c 65 73 20 6d 61 | 74 63 68 69 6e 67 20 74 |files ma|tching t|
|000018e0| 68 65 20 73 70 65 63 2e | 0a 54 68 69 73 20 66 75 |he spec.|.This fu|
|000018f0| 6e 63 74 69 6f 6e 20 69 | 73 20 64 65 73 69 67 6e |nction i|s design|
|00001900| 65 64 20 74 6f 20 77 6f | 72 6b 20 75 6e 64 65 72 |ed to wo|rk under|
|00001910| 20 55 6e 69 78 2e 20 49 | 74 20 6d 61 79 20 61 6c | Unix. I|t may al|
|00001920| 73 6f 20 77 6f 72 6b 20 | 75 6e 64 65 72 20 56 4d |so work |under VM|
|00001930| 53 2e 0a 0a 55 73 65 72 | 73 20 77 68 6f 20 70 72 |S...User|s who pr|
|00001940| 65 66 65 72 20 6f 74 68 | 65 72 20 74 79 70 65 73 |efer oth|er types|
|00001950| 20 6f 66 20 73 68 65 6c | 6c 73 20 73 68 6f 75 6c | of shel|ls shoul|
|00001960| 64 20 77 72 69 74 65 20 | 74 68 65 69 72 20 6f 77 |d write |their ow|
|00001970| 6e 20 76 65 72 73 69 6f | 6e 20 6f 66 20 74 68 69 |n versio|n of thi|
|00001980| 73 0a 66 75 6e 63 74 69 | 6f 6e 20 61 6e 64 20 73 |s.functi|on and s|
|00001990| 65 74 20 74 68 65 20 76 | 61 72 69 61 62 6c 65 20 |et the v|ariable |
|000019a0| 60 65 78 2d 6e 6f 6e 74 | 72 69 76 69 61 6c 2d 66 |`ex-nont|rivial-f|
|000019b0| 69 6e 64 2d 66 69 6c 65 | 2d 66 75 6e 63 74 69 6f |ind-file|-functio|
|000019c0| 6e 27 0a 61 70 70 72 6f | 70 72 69 61 74 65 6c 79 |n'.appro|priately|
|000019d0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 76 69 |...(defa|lias 'vi|
|000019e0| 70 65 72 2d 65 78 2d 6e | 6f 6e 74 72 69 76 69 61 |per-ex-n|ontrivia|
|000019f0| 6c 2d 66 69 6e 64 2d 66 | 69 6c 65 2d 75 6e 69 78 |l-find-f|ile-unix|
|00001a00| 20 23 5b 28 66 69 6c 65 | 73 70 65 63 29 20 22 08 | #[(file|spec) ".|
|00001a10| ab 83 09 aa 89 5c 6e c3 | 73 ab 83 c4 aa 81 c5 0e |.....\n.|s.......|
|00001a20| 06 ae 81 c7 0e 08 ab 87 | c9 ca 0e 0b 5c 22 aa 85 |........|....\"..|
|00001a30| c9 cc 0e 0b 5c 22 c7 89 | 1e 0d 1e 0e 1e 0f 1e 10 |....\"..|........|
|00001a40| 1e 11 8a d2 0e 13 21 71 | 88 d4 20 88 0e 10 ab 8f |......!q|.. .....|
|00001a50| d5 0e 11 c7 d6 c7 0e 10 | d7 0e 0f 26 07 aa 8b d5 |........|...&....|
|00001a60| 0e 11 c7 d6 c7 d7 0e 0f | 26 06 16 0d 65 62 88 0e |........|&...eb..|
|00001a70| 0d d8 56 ab a2 8a d9 c7 | 77 88 da db 21 ab 84 dc |..V.....|w...!...|
|00001a80| dd 21 88 de df 0e 11 3b | ab 84 0e 11 aa 81 e0 60 |.!.....;|.......`|
|00001a90| e1 e2 21 7b 23 88 29 65 | 62 88 e3 e4 21 16 0e 29 |..!{#.)e|b...!..)|
|00001aa0| e5 e6 0e 0e 5c 22 2d 87 | 22 20 5b 65 78 2d 75 6e |....\"-.|" [ex-un|
|00001ab0| 69 78 2d 74 79 70 65 2d | 73 68 65 6c 6c 20 73 68 |ix-type-|shell sh|
|00001ac0| 65 6c 6c 2d 66 69 6c 65 | 2d 6e 61 6d 65 20 73 79 |ell-file|-name sy|
|00001ad0| 73 74 65 6d 2d 74 79 70 | 65 20 28 76 61 78 2d 76 |stem-typ|e (vax-v|
|00001ae0| 6d 73 20 61 78 70 2d 76 | 6d 73 29 20 22 2a 64 63 |ms axp-v|ms) "*dc|
|00001af0| 6c 2a 22 20 22 73 68 22 | 20 65 78 2d 75 6e 69 78 |l*" "sh"| ex-unix|
|00001b00| 2d 74 79 70 65 2d 73 68 | 65 6c 6c 2d 6f 70 74 69 |-type-sh|ell-opti|
|00001b10| 6f 6e 73 20 6e 69 6c 20 | 76 69 70 65 72 2d 6d 73 |ons nil |viper-ms|
|00001b20| 2d 73 74 79 6c 65 2d 6f | 73 2d 70 20 66 6f 72 6d |-style-o|s-p form|
|00001b30| 61 74 20 22 5c 22 6c 73 | 20 2d 31 20 2d 64 20 25 |at "\"ls| -1 -d %|
|00001b40| 73 5c 22 22 20 66 69 6c | 65 73 70 65 63 20 22 6c |s\"" fil|espec "l|
|00001b50| 73 20 2d 31 20 2d 64 20 | 25 73 22 20 73 74 61 74 |s -1 -d |%s" stat|
|00001b60| 75 73 20 66 69 6c 65 2d | 6c 69 73 74 20 63 6f 6d |us file-|list com|
|00001b70| 6d 61 6e 64 20 67 73 68 | 65 6c 6c 2d 6f 70 74 69 |mand gsh|ell-opti|
|00001b80| 6f 6e 73 20 67 73 68 65 | 6c 6c 20 67 65 74 2d 62 |ons gshe|ll get-b|
|00001b90| 75 66 66 65 72 2d 63 72 | 65 61 74 65 20 76 69 70 |uffer-cr|eate vip|
|00001ba0| 65 72 2d 65 78 2d 74 6d | 70 2d 62 75 66 2d 6e 61 |er-ex-tm|p-buf-na|
|00001bb0| 6d 65 20 65 72 61 73 65 | 2d 62 75 66 66 65 72 20 |me erase|-buffer |
|00001bc0| 63 61 6c 6c 2d 70 72 6f | 63 65 73 73 20 74 20 22 |call-pro|cess t "|
|00001bd0| 2d 63 22 20 30 20 22 20 | 09 5c 6e 6a 22 20 6c 6f |-c" 0 " |.\nj" lo|
|00001be0| 6f 6b 69 6e 67 2d 61 74 | 20 22 6c 73 3a 22 20 76 |oking-at| "ls:" v|
|00001bf0| 69 70 65 72 2d 66 6f 72 | 77 61 72 64 2d 57 6f 72 |iper-for|ward-Wor|
|00001c00| 64 20 31 20 65 72 72 6f | 72 20 22 25 73 3a 20 25 |d 1 erro|r "%s: %|
|00001c10| 73 22 20 22 73 68 65 6c | 6c 22 20 76 69 70 65 72 |s" "shel|l" viper|
|00001c20| 2d 6c 69 6e 65 2d 70 6f | 73 20 65 6e 64 20 76 69 |-line-po|s end vi|
|00001c30| 70 65 72 2d 67 65 74 2d | 66 69 6c 65 6e 61 6d 65 |per-get-|filename|
|00001c40| 73 2d 66 72 6f 6d 2d 62 | 75 66 66 65 72 20 6f 6e |s-from-b|uffer on|
|00001c50| 65 2d 70 65 72 2d 6c 69 | 6e 65 20 6d 61 70 63 61 |e-per-li|ne mapca|
|00001c60| 72 20 66 69 6e 64 2d 66 | 69 6c 65 5d 20 38 20 28 |r find-f|ile] 8 (|
|00001c70| 23 24 20 2e 20 36 33 31 | 39 29 5d 29 0a 23 40 34 |#$ . 631|9)]).#@4|
|00001c80| 35 37 20 47 6c 6f 62 20 | 74 68 65 20 66 69 6c 65 |57 Glob |the file|
|00001c90| 20 73 70 65 63 20 61 6e | 64 20 76 69 73 69 74 20 | spec an|d visit |
|00001ca0| 61 6c 6c 20 66 69 6c 65 | 73 20 6d 61 74 63 68 69 |all file|s matchi|
|00001cb0| 6e 67 20 74 68 65 20 73 | 70 65 63 2e 0a 54 68 69 |ng the s|pec..Thi|
|00001cc0| 73 20 66 75 6e 63 74 69 | 6f 6e 20 69 73 20 64 65 |s functi|on is de|
|00001cd0| 73 69 67 6e 65 64 20 74 | 6f 20 77 6f 72 6b 20 75 |signed t|o work u|
|00001ce0| 6e 64 65 72 20 4d 53 20 | 74 79 70 65 20 73 79 73 |nder MS |type sys|
|00001cf0| 74 65 6d 73 2c 20 73 75 | 63 68 20 61 73 20 4e 54 |tems, su|ch as NT|
|00001d00| 2c 20 57 39 35 2c 20 61 | 6e 64 0a 44 4f 53 2e 20 |, W95, a|nd.DOS. |
|00001d10| 49 74 20 6d 61 79 20 61 | 6c 73 6f 20 77 6f 72 6b |It may a|lso work|
|00001d20| 20 75 6e 64 65 72 20 4f | 53 2f 32 2e 0a 0a 54 68 | under O|S/2...Th|
|00001d30| 65 20 75 73 65 72 73 20 | 6f 66 20 55 6e 69 78 2d |e users |of Unix-|
|00001d40| 74 79 70 65 20 73 68 65 | 6c 6c 73 20 73 68 6f 75 |type she|lls shou|
|00001d50| 6c 64 20 62 65 20 61 62 | 6c 65 20 74 6f 20 75 73 |ld be ab|le to us|
|00001d60| 65 0a 60 76 69 70 65 72 | 2d 65 78 2d 6e 6f 6e 74 |e.`viper|-ex-nont|
|00001d70| 72 69 76 69 61 6c 2d 66 | 69 6e 64 2d 66 69 6c 65 |rivial-f|ind-file|
|00001d80| 2d 75 6e 69 78 27 2c 20 | 6d 61 6b 69 6e 67 20 69 |-unix', |making i|
|00001d90| 74 20 69 6e 74 6f 20 74 | 68 65 20 76 61 6c 75 65 |t into t|he value|
|00001da0| 20 6f 66 20 74 68 65 20 | 76 61 72 69 61 62 6c 65 | of the |variable|
|00001db0| 20 0a 60 65 78 2d 6e 6f | 6e 74 72 69 76 69 61 6c | .`ex-no|ntrivial|
|00001dc0| 2d 66 69 6e 64 2d 66 69 | 6c 65 2d 66 75 6e 63 74 |-find-fi|le-funct|
|00001dd0| 69 6f 6e 27 2e 20 49 66 | 20 74 68 69 73 20 64 6f |ion'. If| this do|
|00001de0| 65 73 6e 27 74 20 77 6f | 72 6b 2c 20 74 68 65 20 |esn't wo|rk, the |
|00001df0| 75 73 65 72 20 6d 61 79 | 20 68 61 76 65 0a 74 6f |user may| have.to|
|00001e00| 20 77 72 69 74 65 20 61 | 20 63 75 73 74 6f 6d 20 | write a| custom |
|00001e10| 66 75 6e 63 74 69 6f 6e | 2c 20 73 69 6d 69 6c 61 |function|, simila|
|00001e20| 72 20 74 6f 20 60 76 69 | 70 65 72 2d 65 78 2d 6e |r to `vi|per-ex-n|
|00001e30| 6f 6e 74 72 69 76 69 61 | 6c 2d 66 69 6e 64 2d 66 |ontrivia|l-find-f|
|00001e40| 69 6c 65 2d 75 6e 69 78 | 27 2e 1f 0a 28 64 65 66 |ile-unix|'...(def|
|00001e50| 61 6c 69 61 73 20 27 76 | 69 70 65 72 2d 65 78 2d |alias 'v|iper-ex-|
|00001e60| 6e 6f 6e 74 72 69 76 69 | 61 6c 2d 66 69 6e 64 2d |nontrivi|al-find-|
|00001e70| 66 69 6c 65 2d 6d 73 20 | 23 5b 28 66 69 6c 65 73 |file-ms |#[(files|
|00001e80| 70 65 63 29 20 22 8a c0 | 09 21 71 88 c2 20 88 0b |pec) "..|.!q.. ..|
|00001e90| 63 88 65 62 88 c4 c5 c6 | c7 20 21 5c 22 29 87 22 |c.eb....|. !\")."|
|00001ea0| 20 5b 67 65 74 2d 62 75 | 66 66 65 72 2d 63 72 65 | [get-bu|ffer-cre|
|00001eb0| 61 74 65 20 76 69 70 65 | 72 2d 65 78 2d 74 6d 70 |ate vipe|r-ex-tmp|
|00001ec0| 2d 62 75 66 2d 6e 61 6d | 65 20 65 72 61 73 65 2d |-buf-nam|e erase-|
|00001ed0| 62 75 66 66 65 72 20 66 | 69 6c 65 73 70 65 63 20 |buffer f|ilespec |
|00001ee0| 6d 61 70 63 61 72 20 66 | 69 6e 64 2d 66 69 6c 65 |mapcar f|ind-file|
|00001ef0| 20 76 69 70 65 72 2d 67 | 6c 6f 62 2d 6d 73 2d 77 | viper-g|lob-ms-w|
|00001f00| 69 6e 64 6f 77 73 2d 66 | 69 6c 65 73 20 76 69 70 |indows-f|iles vip|
|00001f10| 65 72 2d 67 65 74 2d 66 | 69 6c 65 6e 61 6d 65 73 |er-get-f|ilenames|
|00001f20| 2d 66 72 6f 6d 2d 62 75 | 66 66 65 72 5d 20 34 20 |-from-bu|ffer] 4 |
|00001f30| 28 23 24 20 2e 20 37 32 | 39 39 29 5d 29 0a 28 64 |(#$ . 72|99)]).(d|
|00001f40| 65 66 61 6c 69 61 73 20 | 27 76 69 70 65 72 2d 67 |efalias |'viper-g|
|00001f50| 65 74 2d 66 69 6c 65 6e | 61 6d 65 73 2d 66 72 6f |et-filen|ames-fro|
|00001f60| 6d 2d 62 75 66 66 65 72 | 20 23 5b 28 26 6f 70 74 |m-buffer| #[(&opt|
|00001f70| 69 6f 6e 61 6c 20 6f 6e | 65 2d 70 65 72 2d 6c 69 |ional on|e-per-li|
|00001f80| 6e 65 29 20 22 08 ab 83 | c1 aa 81 c2 c3 89 89 1c |ne) "...|........|
|00001f90| 1d 1e 06 89 1e 07 c3 77 | 88 6d ac bf c8 c9 21 ab |.......w|.m....!.|
|00001fa0| 89 ca 14 cb cc c3 cd 23 | aa 97 c8 ce 21 ab 89 cf |.......#|....!...|
|00001fb0| 14 cb d0 c3 cd 23 aa 89 | cb d1 0e 07 d2 51 c3 cd |.....#..|.....Q..|
|00001fc0| 23 ab 86 d3 94 d3 95 7b | 15 0c ab 83 d4 75 88 c2 |#......{|.....u..|
|00001fd0| c3 77 88 0d 0e 06 42 16 | 06 aa 3e 0e 06 2c 87 22 |.w....B.|..>..,."|
|00001fe0| 20 5b 6f 6e 65 2d 70 65 | 72 2d 6c 69 6e 65 20 22 | [one-pe|r-line "|
|00001ff0| 09 5c 6e 22 20 22 20 09 | 5c 6e 22 20 6e 69 6c 20 |.\n" " .|\n" nil |
|00002000| 64 65 6c 69 6d 20 66 6e | 61 6d 65 20 72 65 73 75 |delim fn|ame resu|
|00002010| 6c 74 20 73 6b 69 70 2d | 63 68 61 72 73 20 6c 6f |lt skip-|chars lo|
|00002020| 6f 6b 69 6e 67 2d 61 74 | 20 22 5c 22 22 20 3f 5c |oking-at| "\"" ?\|
|00002030| 22 20 72 65 2d 73 65 61 | 72 63 68 2d 66 6f 72 77 |" re-sea|rch-forw|
|00002040| 61 72 64 20 22 5b 5e 5c | 22 5d 2b 22 20 74 20 22 |ard "[^\|"]+" t "|
|00002050| 27 22 20 3f 5c 27 20 22 | 5b 5e 27 5d 2b 22 20 22 |'" ?\' "|[^']+" "|
|00002060| 5b 5e 22 20 22 5d 2b 22 | 20 30 20 31 5d 20 35 5d |[^" "]+"| 0 1] 5]|
|00002070| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 76 69 70 |).(defal|ias 'vip|
|00002080| 65 72 2d 77 69 6c 64 63 | 61 72 64 2d 74 6f 2d 72 |er-wildc|ard-to-r|
|00002090| 65 67 65 78 70 20 23 5b | 28 77 63 61 72 64 29 20 |egexp #[|(wcard) |
|000020a0| 22 8a c0 09 21 71 88 c2 | 20 88 0b 63 88 65 62 88 |"...!q..| ..c.eb.|
|000020b0| 6d ac bd c4 c5 77 88 60 | 66 c6 61 ab 88 c7 63 88 |m....w.`|f.a...c.|
|000020c0| c8 75 88 aa 6b 60 66 c9 | 61 ab 88 ca 63 88 c8 75 |.u..k`f.|a...c..u|
|000020d0| 88 aa 5d 60 66 cb 61 ab | 88 ca 63 88 c8 75 88 aa |..]`f.a.|..c..u..|
|000020e0| 4f 60 66 cc 61 ab 49 cd | c8 21 88 c7 63 88 aa 40 |O`f.a.I.|.!..c..@|
|000020f0| ce 20 29 87 22 20 5b 67 | 65 74 2d 62 75 66 66 65 |. )." [g|et-buffe|
|00002100| 72 2d 63 72 65 61 74 65 | 20 76 69 70 65 72 2d 65 |r-create| viper-e|
|00002110| 78 2d 74 6d 70 2d 62 75 | 66 2d 6e 61 6d 65 20 65 |x-tmp-bu|f-name e|
|00002120| 72 61 73 65 2d 62 75 66 | 66 65 72 20 77 63 61 72 |rase-buf|fer wcar|
|00002130| 64 20 22 5e 2a 3f 2e 5c | 5c 5c 5c 22 20 6e 69 6c |d "^*?.\|\\\" nil|
|00002140| 20 3f 5c 2a 20 22 2e 22 | 20 31 20 3f 5c 2e 20 22 | ?\* "."| 1 ?\. "|
|00002150| 5c 5c 22 20 3f 5c 5c 20 | 3f 5c 3f 20 64 65 6c 65 |\\" ?\\ |?\? dele|
|00002160| 74 65 2d 63 68 61 72 20 | 62 75 66 66 65 72 2d 73 |te-char |buffer-s|
|00002170| 74 72 69 6e 67 5d 20 32 | 5d 29 0a 28 64 65 66 61 |tring] 2|]).(defa|
|00002180| 6c 69 61 73 20 27 76 69 | 70 65 72 2d 67 6c 6f 62 |lias 'vi|per-glob|
|00002190| 2d 6d 73 2d 77 69 6e 64 | 6f 77 73 2d 66 69 6c 65 |-ms-wind|ows-file|
|000021a0| 73 20 23 5b 28 6c 69 73 | 74 29 20 22 08 c1 c2 1b |s #[(lis|t) "....|
|000021b0| 1c 89 1d ab 9c c6 c7 0d | 40 21 ae 81 c8 c1 c9 ca |........|@!......|
|000021c0| cb 0d 40 21 21 cc 51 23 | 0b 42 13 0d 41 89 15 ac |..@!!.Q#|.B..A...|
|000021d0| 64 cd ce cf 0b 5c 22 21 | 2b 87 22 20 5b 6c 69 73 |d....\"!|+." [lis|
|000021e0| 74 20 74 20 6e 69 6c 20 | 74 6d 70 32 20 63 61 73 |t t nil |tmp2 cas|
|000021f0| 65 2d 66 6f 6c 64 2d 73 | 65 61 72 63 68 20 74 6d |e-fold-s|earch tm|
|00002200| 70 20 64 69 72 65 63 74 | 6f 72 79 2d 66 69 6c 65 |p direct|ory-file|
|00002210| 73 20 66 69 6c 65 2d 6e | 61 6d 65 2d 64 69 72 65 |s file-n|ame-dire|
|00002220| 63 74 6f 72 79 20 22 22 | 20 22 5e 22 20 76 69 70 |ctory ""| "^" vip|
|00002230| 65 72 2d 77 69 6c 64 63 | 61 72 64 2d 74 6f 2d 72 |er-wildc|ard-to-r|
|00002240| 65 67 65 78 70 20 66 69 | 6c 65 2d 6e 61 6d 65 2d |egexp fi|le-name-|
|00002250| 6e 6f 6e 64 69 72 65 63 | 74 6f 72 79 20 22 24 22 |nondirec|tory "$"|
|00002260| 20 72 65 76 65 72 73 65 | 20 61 70 70 6c 79 20 61 | reverse| apply a|
|00002270| 70 70 65 6e 64 5d 20 38 | 5d 29 0a 28 64 65 66 61 |ppend] 8|]).(defa|
|00002280| 6c 69 61 73 20 27 76 69 | 70 65 72 2d 72 69 6e 67 |lias 'vi|per-ring|
|00002290| 2d 72 6f 74 61 74 65 31 | 20 23 5b 28 72 69 6e 67 |-rotate1| #[(ring|
|000022a0| 20 64 69 72 29 20 22 c0 | 09 21 ad ab c2 09 21 c3 | dir) ".|.!....!.|
|000022b0| 56 ad a4 09 0c c3 56 ab | 89 c5 09 40 c2 09 21 5c |V.....V.|...@..!\|
|000022c0| 22 aa 90 0c c3 57 ab 89 | c6 09 40 c2 09 21 5c 22 |"....W..|..@..!\"|
|000022d0| aa 82 09 40 a0 88 c7 09 | 21 87 22 20 5b 72 69 6e |...@....|!." [rin|
|000022e0| 67 2d 70 20 72 69 6e 67 | 20 72 69 6e 67 2d 6c 65 |g-p ring| ring-le|
|000022f0| 6e 67 74 68 20 30 20 64 | 69 72 20 72 69 6e 67 2d |ngth 0 d|ir ring-|
|00002300| 70 6c 75 73 31 20 72 69 | 6e 67 2d 6d 69 6e 75 73 |plus1 ri|ng-minus|
|00002310| 31 20 76 69 70 65 72 2d | 63 75 72 72 65 6e 74 2d |1 viper-|current-|
|00002320| 72 69 6e 67 2d 69 74 65 | 6d 5d 20 35 5d 29 0a 28 |ring-ite|m] 5]).(|
|00002330| 64 65 66 61 6c 69 61 73 | 20 27 76 69 70 65 72 2d |defalias| 'viper-|
|00002340| 73 70 65 63 69 61 6c 2d | 72 69 6e 67 2d 72 6f 74 |special-|ring-rot|
|00002350| 61 74 65 31 20 23 5b 28 | 72 69 6e 67 20 64 69 72 |ate1 #[(|ring dir|
|00002360| 29 20 22 08 c1 73 ab 85 | c2 0b 0c 5c 22 87 c2 0b |) "..s..|...\"...|
|00002370| c5 5c 22 87 22 20 5b 76 | 69 70 65 72 2d 69 6e 74 |.\"." [v|iper-int|
|00002380| 65 72 6d 65 64 69 61 74 | 65 2d 63 6f 6d 6d 61 6e |ermediat|e-comman|
|00002390| 64 20 28 72 65 70 65 61 | 74 69 6e 67 2d 64 69 73 |d (repea|ting-dis|
|000023a0| 70 6c 61 79 2d 64 65 73 | 74 72 75 63 74 69 76 65 |play-des|tructive|
|000023b0| 2d 63 6f 6d 6d 61 6e 64 | 20 72 65 70 65 61 74 69 |-command| repeati|
|000023c0| 6e 67 2d 69 6e 73 65 72 | 74 69 6f 6e 2d 66 72 6f |ng-inser|tion-fro|
|000023d0| 6d 2d 72 69 6e 67 29 20 | 76 69 70 65 72 2d 72 69 |m-ring) |viper-ri|
|000023e0| 6e 67 2d 72 6f 74 61 74 | 65 31 20 72 69 6e 67 20 |ng-rotat|e1 ring |
|000023f0| 64 69 72 20 30 5d 20 33 | 5d 29 0a 28 64 65 66 61 |dir 0] 3|]).(defa|
|00002400| 6c 69 61 73 20 27 76 69 | 70 65 72 2d 63 75 72 72 |lias 'vi|per-curr|
|00002410| 65 6e 74 2d 72 69 6e 67 | 2d 69 74 65 6d 20 23 5b |ent-ring|-item #[|
|00002420| 28 72 69 6e 67 20 26 6f | 70 74 69 6f 6e 61 6c 20 |(ring &o|ptional |
|00002430| 6e 29 20 22 08 ae 81 c1 | 10 c2 0b 21 ad 96 c4 0b |n) "....|...!....|
|00002440| 21 c1 56 ad 8f 0b 41 41 | c5 0b 40 08 5a c6 5a c4 |!.V...AA|..@.Z.Z.|
|00002450| 0b 21 5c 22 48 87 22 20 | 5b 6e 20 30 20 72 69 6e |.!\"H." |[n 0 rin|
|00002460| 67 2d 70 20 72 69 6e 67 | 20 72 69 6e 67 2d 6c 65 |g-p ring| ring-le|
|00002470| 6e 67 74 68 20 6d 6f 64 | 20 31 5d 20 35 5d 29 0a |ngth mod| 1] 5]).|
|00002480| 28 64 65 66 61 6c 69 61 | 73 20 27 76 69 70 65 72 |(defalia|s 'viper|
|00002490| 2d 70 75 73 68 2d 6f 6e | 74 6f 2d 72 69 6e 67 20 |-push-on|to-ring |
|000024a0| 23 5b 28 69 74 65 6d 20 | 72 69 6e 67 2d 76 61 72 |#[(item |ring-var|
|000024b0| 29 20 22 c0 c1 5c 6e 21 | 21 ac 8d 5c 6e c3 c1 c4 |) "..\n!|!..\n...|
|000024c0| c5 c6 5c 6e 5c 22 21 21 | 21 4c 88 0e 07 3f ae aa |..\n\"!!|!L...?..|
|000024d0| 0e 07 3b ab 86 0e 07 c8 | 98 ae 9f 0e 07 c9 c1 5c |..;.....|.......\|
|000024e0| 6e 21 21 6b ae 95 5c 6e | ca 61 ab 89 cb cc cd ce |n!!k..\n|.a......|
|000024f0| 20 21 5c 22 ae 87 cf c1 | 5c 6e 21 0e 07 5c 22 87 | !\"....|\n!..\".|
|00002500| 22 20 5b 72 69 6e 67 2d | 70 20 65 76 61 6c 20 72 |" [ring-|p eval r|
|00002510| 69 6e 67 2d 76 61 72 20 | 6d 61 6b 65 2d 72 69 6e |ing-var |make-rin|
|00002520| 67 20 69 6e 74 65 72 6e | 20 66 6f 72 6d 61 74 20 |g intern| format |
|00002530| 22 25 53 2d 73 69 7a 65 | 22 20 69 74 65 6d 20 22 |"%S-size|" item "|
|00002540| 22 20 76 69 70 65 72 2d | 63 75 72 72 65 6e 74 2d |" viper-|current-|
|00002550| 72 69 6e 67 2d 69 74 65 | 6d 20 76 69 70 65 72 2d |ring-ite|m viper-|
|00002560| 63 6f 6d 6d 61 6e 64 2d | 72 69 6e 67 20 73 74 72 |command-|ring str|
|00002570| 69 6e 67 2d 6d 61 74 63 | 68 20 22 5c 5c 28 5b 30 |ing-matc|h "\\([0|
|00002580| 2d 39 5d 2a 1b 5c 5c 7c | 5e 5b 20 09 5d 2a 24 5c |-9]*.\\||^[ .]*$\|
|00002590| 5c 7c 65 73 63 61 70 65 | 5c 5c 29 22 20 76 69 70 |\|escape|\\)" vip|
|000025a0| 65 72 2d 61 72 72 61 79 | 2d 74 6f 2d 73 74 72 69 |er-array|-to-stri|
|000025b0| 6e 67 20 74 68 69 73 2d | 63 6f 6d 6d 61 6e 64 2d |ng this-|command-|
|000025c0| 6b 65 79 73 20 76 69 70 | 65 72 2d 72 69 6e 67 2d |keys vip|er-ring-|
|000025d0| 69 6e 73 65 72 74 5d 20 | 37 5d 29 0a 28 64 65 66 |insert] |7]).(def|
|000025e0| 61 6c 69 61 73 20 27 76 | 69 70 65 72 2d 63 6c 65 |alias 'v|iper-cle|
|000025f0| 61 6e 75 70 2d 72 69 6e | 67 20 23 5b 28 72 69 6e |anup-rin|g #[(rin|
|00002600| 67 29 20 22 c0 09 21 c2 | 57 ae 93 c3 09 21 3f ae |g) "..!.|W....!?.|
|00002610| 8d c3 09 21 c3 09 c4 5c | 22 6b ad 83 c5 09 21 87 |...!...\|"k....!.|
|00002620| 22 20 5b 72 69 6e 67 2d | 6c 65 6e 67 74 68 20 72 |" [ring-|length r|
|00002630| 69 6e 67 20 32 20 76 69 | 70 65 72 2d 63 75 72 72 |ing 2 vi|per-curr|
|00002640| 65 6e 74 2d 72 69 6e 67 | 2d 69 74 65 6d 20 31 20 |ent-ring|-item 1 |
|00002650| 76 69 70 65 72 2d 72 69 | 6e 67 2d 70 6f 70 5d 20 |viper-ri|ng-pop] |
|00002660| 34 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 76 |4]).(def|alias 'v|
|00002670| 69 70 65 72 2d 72 69 6e | 67 2d 70 6f 70 20 23 5b |iper-rin|g-pop #[|
|00002680| 28 72 69 6e 67 29 20 22 | c0 09 21 1a 09 41 41 89 |(ring) "|..!..AA.|
|00002690| 1b 47 1c 09 40 1d c6 c7 | 0d 5c 6e 5c 22 5d 1e 08 |.G..@...|.\n\"]..|
|000026a0| 0b 0e 08 48 1e 09 0e 08 | 54 0c 57 ab 92 0b 0e 08 |...H....|T.W.....|
|000026b0| 0b 0e 08 54 48 49 88 0e | 08 54 89 16 08 aa 69 0b |...THI..|.T....i.|
|000026c0| 0e 08 ca 49 88 c6 c7 0d | 5c 6e 5c 22 5d 89 15 5c |...I....|\n\"]..\|
|000026d0| 6e 53 55 ab 82 c6 15 09 | 0d a0 88 09 41 c6 5c 6e |nSU.....|....A.\n|
|000026e0| 53 5d a0 88 0e 09 2e 06 | 87 22 20 5b 72 69 6e 67 |S]......|." [ring|
|000026f0| 2d 6c 65 6e 67 74 68 20 | 72 69 6e 67 20 6c 6e 20 |-length |ring ln |
|00002700| 76 65 63 20 76 65 63 6c | 65 6e 20 68 64 20 30 20 |vec vecl|en hd 0 |
|00002710| 72 69 6e 67 2d 6d 69 6e | 75 73 31 20 69 64 78 20 |ring-min|us1 idx |
|00002720| 74 6f 70 2d 65 6c 74 20 | 6e 69 6c 5d 20 35 5d 29 |top-elt |nil] 5])|
|00002730| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 76 69 70 65 |.(defali|as 'vipe|
|00002740| 72 2d 72 69 6e 67 2d 69 | 6e 73 65 72 74 20 23 5b |r-ring-i|nsert #[|
|00002750| 28 72 69 6e 67 20 69 74 | 65 6d 29 20 22 c0 09 21 |(ring it|em) "..!|
|00002760| 1a 09 41 41 89 1b 47 1c | 09 40 89 1d c6 55 ab 83 |..AA..G.|.@...U..|
|00002770| 5c 6e aa 81 0d 1e 07 5c | 6e 1e 08 5c 6e 0c 55 ab |\n.....\|n..\n.U.|
|00002780| 8f 0b 0d 0e 09 49 88 09 | ca 0d 5c 6e 5c 22 a0 88 |.....I..|..\n\"..|
|00002790| aa b4 09 41 5c 6e 54 a0 | 88 09 ca 0e 07 5c 6e 54 |...A\nT.|.....\nT|
|000027a0| 5c 22 a0 88 0e 08 0e 07 | 59 ab 97 5c 6e c6 56 ab |\"......|Y..\n.V.|
|000027b0| 92 0b 0e 08 0b 0e 08 53 | 48 49 88 0e 08 53 89 16 |.......S|HI...S..|
|000027c0| 08 aa 64 0b 0e 07 0e 09 | 49 88 0e 09 2e 06 87 22 |..d.....|I......"|
|000027d0| 20 5b 72 69 6e 67 2d 6c | 65 6e 67 74 68 20 72 69 | [ring-l|ength ri|
|000027e0| 6e 67 20 6c 6e 20 76 65 | 63 20 76 65 63 6c 65 6e |ng ln ve|c veclen|
|000027f0| 20 68 64 20 30 20 76 65 | 63 70 6f 73 2d 61 66 74 | hd 0 ve|cpos-aft|
|00002800| 65 72 2d 68 64 20 69 64 | 78 20 69 74 65 6d 20 72 |er-hd id|x item r|
|00002810| 69 6e 67 2d 70 6c 75 73 | 31 5d 20 35 5d 29 0a 28 |ing-plus|1] 5]).(|
|00002820| 64 65 66 61 6c 69 61 73 | 20 27 76 69 70 65 72 2d |defalias| 'viper-|
|00002830| 61 62 62 72 65 76 69 61 | 74 65 2d 73 74 72 69 6e |abbrevia|te-strin|
|00002840| 67 20 23 5b 28 73 74 72 | 69 6e 67 20 6d 61 78 2d |g #[(str|ing max-|
|00002850| 6c 65 6e 20 70 72 65 2d | 73 74 72 69 6e 67 20 70 |len pre-|string p|
|00002860| 6f 73 74 2d 73 74 72 69 | 6e 67 20 61 62 62 72 65 |ost-stri|ng abbre|
|00002870| 76 2d 73 69 67 6e 29 20 | 22 c0 19 5c 6e 3b ad 87 |v-sign) |"..\n;..|
|00002880| 5c 6e c3 0c 5c 6e 47 5e | 4f 89 11 ac 83 c5 aa 9a |\n..\nG^|O.......|
|00002890| 5c 6e 47 0c 56 ab 8c c6 | c7 0e 08 09 0e 09 0e 5c |\nG.V...|.......\|
|000028a0| 6e 25 aa 88 c6 cb 0e 08 | 09 0e 5c 6e 24 29 87 22 |n%......|..\n$)."|
|000028b0| 20 5b 6e 69 6c 20 74 72 | 75 6e 63 61 74 65 64 2d | [nil tr|uncated-|
|000028c0| 73 74 72 20 73 74 72 69 | 6e 67 20 30 20 6d 61 78 |str stri|ng 0 max|
|000028d0| 2d 6c 65 6e 20 22 22 20 | 66 6f 72 6d 61 74 20 22 |-len "" |format "|
|000028e0| 25 73 25 73 25 73 25 73 | 22 20 70 72 65 2d 73 74 |%s%s%s%s|" pre-st|
|000028f0| 72 69 6e 67 20 61 62 62 | 72 65 76 2d 73 69 67 6e |ring abb|rev-sign|
|00002900| 20 70 6f 73 74 2d 73 74 | 72 69 6e 67 20 22 25 73 | post-st|ring "%s|
|00002910| 25 73 25 73 22 5d 20 37 | 5d 29 0a 28 64 65 66 61 |%s%s"] 7|]).(defa|
|00002920| 6c 69 61 73 20 27 76 69 | 70 65 72 2d 6f 76 65 72 |lias 'vi|per-over|
|00002930| 2d 77 68 69 74 65 73 70 | 61 63 65 2d 6c 69 6e 65 |-whitesp|ace-line|
|00002940| 20 23 5b 6e 69 6c 20 22 | 8a c0 79 88 c1 c2 21 29 | #[nil "|..y...!)|
|00002950| 87 22 20 5b 30 20 6c 6f | 6f 6b 69 6e 67 2d 61 74 |." [0 lo|oking-at|
|00002960| 20 22 5e 5b 20 09 5d 2a | 24 22 5d 20 32 5d 29 0a | "^[ .]*|$"] 2]).|
|00002970| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 4e c2 |(byte-co|de "..N.|
|00002980| 73 ac 85 c3 c4 c0 5c 22 | 88 c5 c0 c1 c6 23 87 22 |s.....\"|.....#."|
|00002990| 20 5b 76 69 70 65 72 2d | 6f 76 65 72 2d 77 68 69 | [viper-|over-whi|
|000029a0| 74 65 73 70 61 63 65 2d | 6c 69 6e 65 20 62 79 74 |tespace-|line byt|
|000029b0| 65 2d 6f 70 74 69 6d 69 | 7a 65 72 20 28 6e 69 6c |e-optimi|zer (nil|
|000029c0| 20 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 2d 69 6e | byte-co|mpile-in|
|000029d0| 6c 69 6e 65 2d 65 78 70 | 61 6e 64 29 20 65 72 72 |line-exp|and) err|
|000029e0| 6f 72 20 22 25 73 20 61 | 6c 72 65 61 64 79 20 68 |or "%s a|lready h|
|000029f0| 61 73 20 61 20 62 79 74 | 65 2d 6f 70 74 69 6d 69 |as a byt|e-optimi|
|00002a00| 7a 65 72 2c 20 63 61 6e | 27 74 20 6d 61 6b 65 20 |zer, can|'t make |
|00002a10| 69 74 20 69 6e 6c 69 6e | 65 22 20 70 75 74 20 62 |it inlin|e" put b|
|00002a20| 79 74 65 2d 63 6f 6d 70 | 69 6c 65 2d 69 6e 6c 69 |yte-comp|ile-inli|
|00002a30| 6e 65 2d 65 78 70 61 6e | 64 5d 20 34 29 0a 28 64 |ne-expan|d] 4).(d|
|00002a40| 65 66 61 6c 69 61 73 20 | 27 76 69 70 65 72 2d 73 |efalias |'viper-s|
|00002a50| 61 76 65 2d 73 65 74 74 | 69 6e 67 20 23 5b 28 76 |ave-sett|ing #[(v|
|00002a60| 61 72 20 6d 65 73 73 61 | 67 65 20 63 75 73 74 6f |ar messa|ge custo|
|00002a70| 6d 2d 66 69 6c 65 20 26 | 6f 70 74 69 6f 6e 61 6c |m-file &|optional|
|00002a80| 20 65 72 61 73 65 2d 6d | 73 67 29 20 22 c0 09 21 | erase-m|sg) "..!|
|00002a90| 1a c3 09 21 ad 83 c4 09 | 21 1d c6 c7 5c 6e 5c 22 |...!....|!...\n\"|
|00002aa0| 1e 08 c9 ca 0e 0b 21 21 | 1e 0c cd 0e 0d 21 88 8a |......!!|.....!..|
|00002ab0| 0e 0c 71 88 65 62 88 ce | 0e 08 cf d0 23 ab 9d d1 |..q.eb..|....#...|
|00002ac0| 95 53 1e 12 d3 5c 6e 21 | 88 d1 94 0e 12 7c 88 d1 |.S...\n!|.....|..|
|00002ad0| 94 62 88 c6 d4 5c 6e 0d | 23 63 88 29 aa 90 64 62 |.b...\n.|#c.)..db|
|00002ae0| 88 6e ac 83 d5 63 88 c6 | d6 5c 6e 0d 23 63 88 d7 |.n...c..|.\n.#c..|
|00002af0| 20 88 29 d8 0e 0c 21 88 | 0e 19 ad 87 da db 21 88 | .)...!.|......!.|
|00002b00| cd dc 21 2c 87 22 20 5b | 73 79 6d 62 6f 6c 2d 6e |..!,." [|symbol-n|
|00002b10| 61 6d 65 20 76 61 72 20 | 76 61 72 2d 6e 61 6d 65 |ame var |var-name|
|00002b20| 20 62 6f 75 6e 64 70 20 | 65 76 61 6c 20 76 61 72 | boundp |eval var|
|00002b30| 2d 76 61 6c 20 66 6f 72 | 6d 61 74 20 22 5e 5b 5e |-val for|mat "^[^|
|00002b40| 3b 5d 2a 25 73 5b 20 09 | 5c 6e 5d 2a 5b 61 2d 7a |;]*%s[ .|\n]*[a-z|
|00002b50| 41 2d 5a 2d 2d 2d 5f 27 | 5d 2a 5b 20 09 5c 6e 29 |A-Z---_'|]*[ .\n)|
|00002b60| 5d 22 20 72 65 67 65 78 | 70 20 66 69 6e 64 2d 66 |]" regex|p find-f|
|00002b70| 69 6c 65 2d 6e 6f 73 65 | 6c 65 63 74 20 73 75 62 |ile-nose|lect sub|
|00002b80| 73 74 69 74 75 74 65 2d | 69 6e 2d 66 69 6c 65 2d |stitute-|in-file-|
|00002b90| 6e 61 6d 65 20 63 75 73 | 74 6f 6d 2d 66 69 6c 65 |name cus|tom-file|
|00002ba0| 20 62 75 66 20 6d 65 73 | 73 61 67 65 20 72 65 2d | buf mes|sage re-|
|00002bb0| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 6e |search-f|orward n|
|00002bc0| 69 6c 20 74 20 30 20 72 | 65 67 2d 65 6e 64 20 73 |il t 0 r|eg-end s|
|00002bd0| 65 61 72 63 68 2d 62 61 | 63 6b 77 61 72 64 20 22 |earch-ba|ckward "|
|00002be0| 25 73 20 20 27 25 53 22 | 20 22 5c 6e 22 20 22 28 |%s '%S"| "\n" "(|
|00002bf0| 73 65 74 71 20 25 73 20 | 27 25 53 29 5c 6e 22 20 |setq %s |'%S)\n" |
|00002c00| 73 61 76 65 2d 62 75 66 | 66 65 72 20 6b 69 6c 6c |save-buf|fer kill|
|00002c10| 2d 62 75 66 66 65 72 20 | 65 72 61 73 65 2d 6d 73 |-buffer |erase-ms|
|00002c20| 67 20 73 69 74 2d 66 6f | 72 20 32 20 22 22 5d 20 |g sit-fo|r 2 ""] |
|00002c30| 34 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 76 |4]).(def|alias 'v|
|00002c40| 69 70 65 72 2d 73 61 76 | 65 2d 73 74 72 69 6e 67 |iper-sav|e-string|
|00002c50| 2d 69 6e 2d 66 69 6c 65 | 20 23 5b 28 73 74 72 69 |-in-file| #[(stri|
|00002c60| 6e 67 20 63 75 73 74 6f | 6d 2d 66 69 6c 65 20 26 |ng custo|m-file &|
|00002c70| 6f 70 74 69 6f 6e 61 6c | 20 70 61 74 74 65 72 6e |optional| pattern|
|00002c80| 29 20 22 c0 c1 5c 6e 21 | 21 1b 8a 0b 71 88 65 62 |) "..\n!|!...q.eb|
|00002c90| 88 0c ab 84 c5 0c 21 88 | 64 62 88 0e 06 ab 84 0e |......!.|db......|
|00002ca0| 06 63 88 c7 20 88 29 c8 | 0b 21 29 87 22 20 5b 66 |.c.. .).|.!)." [f|
|00002cb0| 69 6e 64 2d 66 69 6c 65 | 2d 6e 6f 73 65 6c 65 63 |ind-file|-noselec|
|00002cc0| 74 20 73 75 62 73 74 69 | 74 75 74 65 2d 69 6e 2d |t substi|tute-in-|
|00002cd0| 66 69 6c 65 2d 6e 61 6d | 65 20 63 75 73 74 6f 6d |file-nam|e custom|
|00002ce0| 2d 66 69 6c 65 20 62 75 | 66 20 70 61 74 74 65 72 |-file bu|f patter|
|00002cf0| 6e 20 64 65 6c 65 74 65 | 2d 6d 61 74 63 68 69 6e |n delete|-matchin|
|00002d00| 67 2d 6c 69 6e 65 73 20 | 73 74 72 69 6e 67 20 73 |g-lines |string s|
|00002d10| 61 76 65 2d 62 75 66 66 | 65 72 20 6b 69 6c 6c 2d |ave-buff|er kill-|
|00002d20| 62 75 66 66 65 72 5d 20 | 33 5d 29 0a 28 64 65 66 |buffer] |3]).(def|
|00002d30| 61 6c 69 61 73 20 27 76 | 69 70 65 72 2d 66 6c 61 |alias 'v|iper-fla|
|00002d40| 73 68 2d 73 65 61 72 63 | 68 2d 70 61 74 74 65 72 |sh-searc|h-patter|
|00002d50| 6e 20 23 5b 6e 69 6c 20 | 22 c0 09 21 ab 8a c2 09 |n #[nil |"..!....|
|00002d60| c3 94 c3 95 23 88 aa 88 | c4 c3 94 c3 95 70 23 11 |....#...|.....p#.|
|00002d70| c5 09 c6 0e 07 23 88 c8 | 20 ad 90 c5 09 c9 0e 5c |.....#..| ......\|
|00002d80| 6e 23 88 cb cc 21 88 c5 | 09 c9 cd 23 87 22 20 5b |n#...!..|...#." [|
|00002d90| 76 69 70 65 72 2d 6f 76 | 65 72 6c 61 79 2d 70 20 |viper-ov|erlay-p |
|00002da0| 76 69 70 65 72 2d 73 65 | 61 72 63 68 2d 6f 76 65 |viper-se|arch-ove|
|00002db0| 72 6c 61 79 20 76 69 70 | 65 72 2d 6d 6f 76 65 2d |rlay vip|er-move-|
|00002dc0| 6f 76 65 72 6c 61 79 20 | 30 20 76 69 70 65 72 2d |overlay |0 viper-|
|00002dd0| 6d 61 6b 65 2d 6f 76 65 | 72 6c 61 79 20 76 69 70 |make-ove|rlay vip|
|00002de0| 65 72 2d 6f 76 65 72 6c | 61 79 2d 70 75 74 20 70 |er-overl|ay-put p|
|00002df0| 72 69 6f 72 69 74 79 20 | 76 69 70 65 72 2d 73 65 |riority |viper-se|
|00002e00| 61 72 63 68 2d 6f 76 65 | 72 6c 61 79 2d 70 72 69 |arch-ove|rlay-pri|
|00002e10| 6f 72 69 74 79 20 76 69 | 70 65 72 2d 68 61 73 2d |ority vi|per-has-|
|00002e20| 66 61 63 65 2d 73 75 70 | 70 6f 72 74 2d 70 20 66 |face-sup|port-p f|
|00002e30| 61 63 65 20 76 69 70 65 | 72 2d 73 65 61 72 63 68 |ace vipe|r-search|
|00002e40| 2d 66 61 63 65 20 73 69 | 74 2d 66 6f 72 20 32 20 |-face si|t-for 2 |
|00002e50| 6e 69 6c 5d 20 34 5d 29 | 0a 28 64 65 66 61 6c 69 |nil] 4])|.(defali|
|00002e60| 61 73 20 27 76 69 70 65 | 72 2d 6d 6f 76 65 2d 72 |as 'vipe|r-move-r|
|00002e70| 65 70 6c 61 63 65 2d 6f | 76 65 72 6c 61 79 20 23 |eplace-o|verlay #|
|00002e80| 5b 28 62 65 67 20 65 6e | 64 29 20 22 c0 09 5c 6e |[(beg en|d) "..\n|
|00002e90| 0b 23 87 22 20 5b 76 69 | 70 65 72 2d 6d 6f 76 65 |.#." [vi|per-move|
|00002ea0| 2d 6f 76 65 72 6c 61 79 | 20 76 69 70 65 72 2d 72 |-overlay| viper-r|
|00002eb0| 65 70 6c 61 63 65 2d 6f | 76 65 72 6c 61 79 20 62 |eplace-o|verlay b|
|00002ec0| 65 67 20 65 6e 64 5d 20 | 34 5d 29 0a 28 62 79 74 |eg end] |4]).(byt|
|00002ed0| 65 2d 63 6f 64 65 20 22 | c0 c1 4e c2 73 ac 85 c3 |e-code "|..N.s...|
|00002ee0| c4 c0 5c 22 88 c5 c0 c1 | c6 23 87 22 20 5b 76 69 |..\"....|.#." [vi|
|00002ef0| 70 65 72 2d 6d 6f 76 65 | 2d 72 65 70 6c 61 63 65 |per-move|-replace|
|00002f00| 2d 6f 76 65 72 6c 61 79 | 20 62 79 74 65 2d 6f 70 |-overlay| byte-op|
|00002f10| 74 69 6d 69 7a 65 72 20 | 28 6e 69 6c 20 62 79 74 |timizer |(nil byt|
|00002f20| 65 2d 63 6f 6d 70 69 6c | 65 2d 69 6e 6c 69 6e 65 |e-compil|e-inline|
|00002f30| 2d 65 78 70 61 6e 64 29 | 20 65 72 72 6f 72 20 22 |-expand)| error "|
|00002f40| 25 73 20 61 6c 72 65 61 | 64 79 20 68 61 73 20 61 |%s alrea|dy has a|
|00002f50| 20 62 79 74 65 2d 6f 70 | 74 69 6d 69 7a 65 72 2c | byte-op|timizer,|
|00002f60| 20 63 61 6e 27 74 20 6d | 61 6b 65 20 69 74 20 69 | can't m|ake it i|
|00002f70| 6e 6c 69 6e 65 22 20 70 | 75 74 20 62 79 74 65 2d |nline" p|ut byte-|
|00002f80| 63 6f 6d 70 69 6c 65 2d | 69 6e 6c 69 6e 65 2d 65 |compile-|inline-e|
|00002f90| 78 70 61 6e 64 5d 20 34 | 29 0a 28 64 65 66 61 6c |xpand] 4|).(defal|
|00002fa0| 69 61 73 20 27 76 69 70 | 65 72 2d 73 65 74 2d 72 |ias 'vip|er-set-r|
|00002fb0| 65 70 6c 61 63 65 2d 6f | 76 65 72 6c 61 79 20 23 |eplace-o|verlay #|
|00002fc0| 5b 28 62 65 67 20 65 6e | 64 29 20 22 c0 09 21 ab |[(beg en|d) "..!.|
|00002fd0| 8d 5c 6e 0b 1b 1a c4 09 | 5c 6e 0b 23 88 2a aa 9a |.\n.....|\n.#.*..|
|00002fe0| c5 5c 6e 0b 70 23 11 c6 | 09 0e 07 ab 83 c8 aa 81 |.\n.p#..|........|
|00002ff0| c9 ca 23 88 c6 09 cb 0e | 0c 23 88 cd 20 ab 87 c6 |..#.....|.#.. ...|
|00003000| 09 ce 0e 0f 23 88 d0 20 | 88 d1 0e 12 21 87 22 20 |....#.. |....!." |
|00003010| 5b 76 69 70 65 72 2d 6f | 76 65 72 6c 61 79 2d 70 |[viper-o|verlay-p|
|00003020| 20 76 69 70 65 72 2d 72 | 65 70 6c 61 63 65 2d 6f | viper-r|eplace-o|
|00003030| 76 65 72 6c 61 79 20 62 | 65 67 20 65 6e 64 20 76 |verlay b|eg end v|
|00003040| 69 70 65 72 2d 6d 6f 76 | 65 2d 6f 76 65 72 6c 61 |iper-mov|e-overla|
|00003050| 79 20 76 69 70 65 72 2d | 6d 61 6b 65 2d 6f 76 65 |y viper-|make-ove|
|00003060| 72 6c 61 79 20 76 69 70 | 65 72 2d 6f 76 65 72 6c |rlay vip|er-overl|
|00003070| 61 79 2d 70 75 74 20 76 | 69 70 65 72 2d 65 6d 61 |ay-put v|iper-ema|
|00003080| 63 73 2d 70 20 65 76 61 | 70 6f 72 61 74 65 20 64 |cs-p eva|porate d|
|00003090| 65 74 61 63 68 61 62 6c | 65 20 6e 69 6c 20 70 72 |etachabl|e nil pr|
|000030a0| 69 6f 72 69 74 79 20 76 | 69 70 65 72 2d 72 65 70 |iority v|iper-rep|
|000030b0| 6c 61 63 65 2d 6f 76 65 | 72 6c 61 79 2d 70 72 69 |lace-ove|rlay-pri|
|000030c0| 6f 72 69 74 79 20 76 69 | 70 65 72 2d 68 61 73 2d |ority vi|per-has-|
|000030d0| 66 61 63 65 2d 73 75 70 | 70 6f 72 74 2d 70 20 66 |face-sup|port-p f|
|000030e0| 61 63 65 20 76 69 70 65 | 72 2d 72 65 70 6c 61 63 |ace vipe|r-replac|
|000030f0| 65 2d 6f 76 65 72 6c 61 | 79 2d 66 61 63 65 20 76 |e-overla|y-face v|
|00003100| 69 70 65 72 2d 73 61 76 | 65 2d 63 75 72 73 6f 72 |iper-sav|e-cursor|
|00003110| 2d 63 6f 6c 6f 72 20 76 | 69 70 65 72 2d 63 68 61 |-color v|iper-cha|
|00003120| 6e 67 65 2d 63 75 72 73 | 6f 72 2d 63 6f 6c 6f 72 |nge-curs|or-color|
|00003130| 20 76 69 70 65 72 2d 72 | 65 70 6c 61 63 65 2d 6f | viper-r|eplace-o|
|00003140| 76 65 72 6c 61 79 2d 63 | 75 72 73 6f 72 2d 63 6f |verlay-c|ursor-co|
|00003150| 6c 6f 72 5d 20 34 5d 29 | 0a 28 64 65 66 61 6c 69 |lor] 4])|.(defali|
|00003160| 61 73 20 27 76 69 70 65 | 72 2d 73 65 74 2d 72 65 |as 'vipe|r-set-re|
|00003170| 70 6c 61 63 65 2d 6f 76 | 65 72 6c 61 79 2d 67 6c |place-ov|erlay-gl|
|00003180| 79 70 68 73 20 23 5b 28 | 62 65 66 6f 72 65 2d 67 |yphs #[(|before-g|
|00003190| 6c 79 70 68 20 61 66 74 | 65 72 2d 67 6c 79 70 68 |lyph aft|er-glyph|
|000031a0| 29 20 22 c0 20 ab 83 09 | ad a4 5c 6e ab 83 c3 aa |) ". ...|..\n....|
|000031b0| 81 c4 5c 6e ab 83 c5 aa | 81 c6 1e 07 1e 08 c9 0e |..\n....|........|
|000031c0| 5c 6e 0e 08 0e 0b 23 88 | c9 0e 5c 6e 0e 07 0e 0c |\n....#.|..\n....|
|000031d0| 23 2a 87 22 20 5b 76 69 | 70 65 72 2d 68 61 73 2d |#*." [vi|per-has-|
|000031e0| 66 61 63 65 2d 73 75 70 | 70 6f 72 74 2d 70 20 76 |face-sup|port-p v|
|000031f0| 69 70 65 72 2d 75 73 65 | 2d 72 65 70 6c 61 63 65 |iper-use|-replace|
|00003200| 2d 72 65 67 69 6f 6e 2d | 64 65 6c 69 6d 69 74 65 |-region-|delimite|
|00003210| 72 73 20 76 69 70 65 72 | 2d 78 65 6d 61 63 73 2d |rs viper|-xemacs-|
|00003220| 70 20 62 65 67 69 6e 2d | 67 6c 79 70 68 20 62 65 |p begin-|glyph be|
|00003230| 66 6f 72 65 2d 73 74 72 | 69 6e 67 20 65 6e 64 2d |fore-str|ing end-|
|00003240| 67 6c 79 70 68 20 61 66 | 74 65 72 2d 73 74 72 69 |glyph af|ter-stri|
|00003250| 6e 67 20 61 66 74 65 72 | 2d 6e 61 6d 65 20 62 65 |ng after|-name be|
|00003260| 66 6f 72 65 2d 6e 61 6d | 65 20 76 69 70 65 72 2d |fore-nam|e viper-|
|00003270| 6f 76 65 72 6c 61 79 2d | 70 75 74 20 76 69 70 65 |overlay-|put vipe|
|00003280| 72 2d 72 65 70 6c 61 63 | 65 2d 6f 76 65 72 6c 61 |r-replac|e-overla|
|00003290| 79 20 62 65 66 6f 72 65 | 2d 67 6c 79 70 68 20 61 |y before|-glyph a|
|000032a0| 66 74 65 72 2d 67 6c 79 | 70 68 5d 20 34 5d 29 0a |fter-gly|ph] 4]).|
|000032b0| 28 64 65 66 61 6c 69 61 | 73 20 27 76 69 70 65 72 |(defalia|s 'viper|
|000032c0| 2d 68 69 64 65 2d 72 65 | 70 6c 61 63 65 2d 6f 76 |-hide-re|place-ov|
|000032d0| 65 72 6c 61 79 20 23 5b | 6e 69 6c 20 22 c0 c1 89 |erlay #[|nil "...|
|000032e0| 5c 22 88 c2 c3 0c c5 5c | 22 21 88 c2 0e 06 21 88 |\".....\|"!....!.|
|000032f0| c7 20 ad 85 c8 0c c9 c1 | 23 87 22 20 5b 76 69 70 |. ......|#." [vip|
|00003300| 65 72 2d 73 65 74 2d 72 | 65 70 6c 61 63 65 2d 6f |er-set-r|eplace-o|
|00003310| 76 65 72 6c 61 79 2d 67 | 6c 79 70 68 73 20 6e 69 |verlay-g|lyphs ni|
|00003320| 6c 20 76 69 70 65 72 2d | 63 68 61 6e 67 65 2d 63 |l viper-|change-c|
|00003330| 75 72 73 6f 72 2d 63 6f | 6c 6f 72 20 76 69 70 65 |ursor-co|lor vipe|
|00003340| 72 2d 6f 76 65 72 6c 61 | 79 2d 67 65 74 20 76 69 |r-overla|y-get vi|
|00003350| 70 65 72 2d 72 65 70 6c | 61 63 65 2d 6f 76 65 72 |per-repl|ace-over|
|00003360| 6c 61 79 20 76 69 70 65 | 72 2d 63 75 72 73 6f 72 |lay vipe|r-cursor|
|00003370| 2d 63 6f 6c 6f 72 20 76 | 69 70 65 72 2d 73 61 76 |-color v|iper-sav|
|00003380| 65 64 2d 63 75 72 73 6f | 72 2d 63 6f 6c 6f 72 20 |ed-curso|r-color |
|00003390| 76 69 70 65 72 2d 68 61 | 73 2d 66 61 63 65 2d 73 |viper-ha|s-face-s|
|000033a0| 75 70 70 6f 72 74 2d 70 | 20 76 69 70 65 72 2d 6f |upport-p| viper-o|
|000033b0| 76 65 72 6c 61 79 2d 70 | 75 74 20 66 61 63 65 5d |verlay-p|ut face]|
|000033c0| 20 34 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 | 4]).(de|falias '|
|000033d0| 76 69 70 65 72 2d 72 65 | 70 6c 61 63 65 2d 73 74 |viper-re|place-st|
|000033e0| 61 72 74 20 23 5b 6e 69 | 6c 20 22 c0 09 21 87 22 |art #[ni|l "..!."|
|000033f0| 20 5b 76 69 70 65 72 2d | 6f 76 65 72 6c 61 79 2d | [viper-|overlay-|
|00003400| 73 74 61 72 74 20 76 69 | 70 65 72 2d 72 65 70 6c |start vi|per-repl|
|00003410| 61 63 65 2d 6f 76 65 72 | 6c 61 79 5d 20 32 5d 29 |ace-over|lay] 2])|
|00003420| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 4e |.(byte-c|ode "..N|
|00003430| c2 73 ac 85 c3 c4 c0 5c | 22 88 c5 c0 c1 c6 23 87 |.s.....\|".....#.|
|00003440| 22 20 5b 76 69 70 65 72 | 2d 72 65 70 6c 61 63 65 |" [viper|-replace|
|00003450| 2d 73 74 61 72 74 20 62 | 79 74 65 2d 6f 70 74 69 |-start b|yte-opti|
|00003460| 6d 69 7a 65 72 20 28 6e | 69 6c 20 62 79 74 65 2d |mizer (n|il byte-|
|00003470| 63 6f 6d 70 69 6c 65 2d | 69 6e 6c 69 6e 65 2d 65 |compile-|inline-e|
|00003480| 78 70 61 6e 64 29 20 65 | 72 72 6f 72 20 22 25 73 |xpand) e|rror "%s|
|00003490| 20 61 6c 72 65 61 64 79 | 20 68 61 73 20 61 20 62 | already| has a b|
|000034a0| 79 74 65 2d 6f 70 74 69 | 6d 69 7a 65 72 2c 20 63 |yte-opti|mizer, c|
|000034b0| 61 6e 27 74 20 6d 61 6b | 65 20 69 74 20 69 6e 6c |an't mak|e it inl|
|000034c0| 69 6e 65 22 20 70 75 74 | 20 62 79 74 65 2d 63 6f |ine" put| byte-co|
|000034d0| 6d 70 69 6c 65 2d 69 6e | 6c 69 6e 65 2d 65 78 70 |mpile-in|line-exp|
|000034e0| 61 6e 64 5d 20 34 29 0a | 28 64 65 66 61 6c 69 61 |and] 4).|(defalia|
|000034f0| 73 20 27 76 69 70 65 72 | 2d 72 65 70 6c 61 63 65 |s 'viper|-replace|
|00003500| 2d 65 6e 64 20 23 5b 6e | 69 6c 20 22 c0 09 21 87 |-end #[n|il "..!.|
|00003510| 22 20 5b 76 69 70 65 72 | 2d 6f 76 65 72 6c 61 79 |" [viper|-overlay|
|00003520| 2d 65 6e 64 20 76 69 70 | 65 72 2d 72 65 70 6c 61 |-end vip|er-repla|
|00003530| 63 65 2d 6f 76 65 72 6c | 61 79 5d 20 32 5d 29 0a |ce-overl|ay] 2]).|
|00003540| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 4e c2 |(byte-co|de "..N.|
|00003550| 73 ac 85 c3 c4 c0 5c 22 | 88 c5 c0 c1 c6 23 87 22 |s.....\"|.....#."|
|00003560| 20 5b 76 69 70 65 72 2d | 72 65 70 6c 61 63 65 2d | [viper-|replace-|
|00003570| 65 6e 64 20 62 79 74 65 | 2d 6f 70 74 69 6d 69 7a |end byte|-optimiz|
|00003580| 65 72 20 28 6e 69 6c 20 | 62 79 74 65 2d 63 6f 6d |er (nil |byte-com|
|00003590| 70 69 6c 65 2d 69 6e 6c | 69 6e 65 2d 65 78 70 61 |pile-inl|ine-expa|
|000035a0| 6e 64 29 20 65 72 72 6f | 72 20 22 25 73 20 61 6c |nd) erro|r "%s al|
|000035b0| 72 65 61 64 79 20 68 61 | 73 20 61 20 62 79 74 65 |ready ha|s a byte|
|000035c0| 2d 6f 70 74 69 6d 69 7a | 65 72 2c 20 63 61 6e 27 |-optimiz|er, can'|
|000035d0| 74 20 6d 61 6b 65 20 69 | 74 20 69 6e 6c 69 6e 65 |t make i|t inline|
|000035e0| 22 20 70 75 74 20 62 79 | 74 65 2d 63 6f 6d 70 69 |" put by|te-compi|
|000035f0| 6c 65 2d 69 6e 6c 69 6e | 65 2d 65 78 70 61 6e 64 |le-inlin|e-expand|
|00003600| 5d 20 34 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |] 4).(de|falias '|
|00003610| 76 69 70 65 72 2d 73 65 | 74 2d 6d 69 6e 69 62 75 |viper-se|t-minibu|
|00003620| 66 66 65 72 2d 6f 76 65 | 72 6c 61 79 20 23 5b 6e |ffer-ove|rlay #[n|
|00003630| 69 6c 20 22 c0 20 88 c1 | 20 ad a9 c2 0b c4 0d 23 |il ". ..| ......#|
|00003640| 88 c2 0b c6 0e 07 23 88 | c2 0b 0e 08 ab 83 c9 aa |......#.|........|
|00003650| 81 ca cb 23 88 0e 0c ad | 8b c2 0b cd cb 23 88 c2 |...#....|.....#..|
|00003660| 0b ce cb 23 87 22 20 5b | 76 69 70 65 72 2d 63 68 |...#." [|viper-ch|
|00003670| 65 63 6b 2d 6d 69 6e 69 | 62 75 66 66 65 72 2d 6f |eck-mini|buffer-o|
|00003680| 76 65 72 6c 61 79 20 76 | 69 70 65 72 2d 68 61 73 |verlay v|iper-has|
|00003690| 2d 66 61 63 65 2d 73 75 | 70 70 6f 72 74 2d 70 20 |-face-su|pport-p |
|000036a0| 76 69 70 65 72 2d 6f 76 | 65 72 6c 61 79 2d 70 75 |viper-ov|erlay-pu|
|000036b0| 74 20 76 69 70 65 72 2d | 6d 69 6e 69 62 75 66 66 |t viper-|minibuff|
|000036c0| 65 72 2d 6f 76 65 72 6c | 61 79 20 66 61 63 65 20 |er-overl|ay face |
|000036d0| 76 69 70 65 72 2d 6d 69 | 6e 69 62 75 66 66 65 72 |viper-mi|nibuffer|
|000036e0| 2d 63 75 72 72 65 6e 74 | 2d 66 61 63 65 20 70 72 |-current|-face pr|
|000036f0| 69 6f 72 69 74 79 20 76 | 69 70 65 72 2d 6d 69 6e |iority v|iper-min|
|00003700| 69 62 75 66 66 65 72 2d | 6f 76 65 72 6c 61 79 2d |ibuffer-|overlay-|
|00003710| 70 72 69 6f 72 69 74 79 | 20 76 69 70 65 72 2d 65 |priority| viper-e|
|00003720| 6d 61 63 73 2d 70 20 65 | 76 61 70 6f 72 61 74 65 |macs-p e|vaporate|
|00003730| 20 64 65 74 61 63 68 61 | 62 6c 65 20 6e 69 6c 20 | detacha|ble nil |
|00003740| 76 69 70 65 72 2d 78 65 | 6d 61 63 73 2d 70 20 73 |viper-xe|macs-p s|
|00003750| 74 61 72 74 2d 6f 70 65 | 6e 20 65 6e 64 2d 6f 70 |tart-ope|n end-op|
|00003760| 65 6e 5d 20 34 5d 29 0a | 28 64 65 66 61 6c 69 61 |en] 4]).|(defalia|
|00003770| 73 20 27 76 69 70 65 72 | 2d 63 68 65 63 6b 2d 6d |s 'viper|-check-m|
|00003780| 69 6e 69 62 75 66 66 65 | 72 2d 6f 76 65 72 6c 61 |inibuffe|r-overla|
|00003790| 79 20 23 5b 6e 69 6c 20 | 22 c0 09 21 ae 97 5c 6e |y #[nil |"..!..\n|
|000037a0| ab 89 c3 c4 c5 20 54 70 | 23 aa 89 c3 c4 c5 20 54 |..... Tp|#..... T|
|000037b0| 70 c6 c7 25 89 11 87 22 | 20 5b 76 69 70 65 72 2d |p..%..."| [viper-|
|000037c0| 6f 76 65 72 6c 61 79 2d | 70 20 76 69 70 65 72 2d |overlay-|p viper-|
|000037d0| 6d 69 6e 69 62 75 66 66 | 65 72 2d 6f 76 65 72 6c |minibuff|er-overl|
|000037e0| 61 79 20 76 69 70 65 72 | 2d 78 65 6d 61 63 73 2d |ay viper|-xemacs-|
|000037f0| 70 20 76 69 70 65 72 2d | 6d 61 6b 65 2d 6f 76 65 |p viper-|make-ove|
|00003800| 72 6c 61 79 20 31 20 62 | 75 66 66 65 72 2d 73 69 |rlay 1 b|uffer-si|
|00003810| 7a 65 20 6e 69 6c 20 72 | 65 61 72 2d 61 64 76 61 |ze nil r|ear-adva|
|00003820| 6e 63 65 5d 20 36 5d 29 | 0a 28 64 65 66 61 6c 69 |nce] 6])|.(defali|
|00003830| 61 73 20 27 76 69 70 65 | 72 2d 69 73 2d 69 6e 2d |as 'vipe|r-is-in-|
|00003840| 6d 69 6e 69 62 75 66 66 | 65 72 20 23 5b 6e 69 6c |minibuff|er #[nil|
|00003850| 20 22 c0 c1 c2 20 5c 22 | 87 22 20 5b 73 74 72 69 | "... \"|." [stri|
|00003860| 6e 67 2d 6d 61 74 63 68 | 20 22 2a 4d 69 6e 69 62 |ng-match| "*Minib|
|00003870| 75 66 2d 22 20 62 75 66 | 66 65 72 2d 6e 61 6d 65 |uf-" buf|fer-name|
|00003880| 5d 20 33 5d 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |] 3]).(b|yte-code|
|00003890| 20 22 c0 c1 4e c2 73 ac | 85 c3 c4 c0 5c 22 88 c5 | "..N.s.|....\"..|
|000038a0| c0 c1 c6 23 87 22 20 5b | 76 69 70 65 72 2d 69 73 |...#." [|viper-is|
|000038b0| 2d 69 6e 2d 6d 69 6e 69 | 62 75 66 66 65 72 20 62 |-in-mini|buffer b|
|000038c0| 79 74 65 2d 6f 70 74 69 | 6d 69 7a 65 72 20 28 6e |yte-opti|mizer (n|
|000038d0| 69 6c 20 62 79 74 65 2d | 63 6f 6d 70 69 6c 65 2d |il byte-|compile-|
|000038e0| 69 6e 6c 69 6e 65 2d 65 | 78 70 61 6e 64 29 20 65 |inline-e|xpand) e|
|000038f0| 72 72 6f 72 20 22 25 73 | 20 61 6c 72 65 61 64 79 |rror "%s| already|
|00003900| 20 68 61 73 20 61 20 62 | 79 74 65 2d 6f 70 74 69 | has a b|yte-opti|
|00003910| 6d 69 7a 65 72 2c 20 63 | 61 6e 27 74 20 6d 61 6b |mizer, c|an't mak|
|00003920| 65 20 69 74 20 69 6e 6c | 69 6e 65 22 20 70 75 74 |e it inl|ine" put|
|00003930| 20 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 2d 69 6e | byte-co|mpile-in|
|00003940| 6c 69 6e 65 2d 65 78 70 | 61 6e 64 5d 20 34 29 0a |line-exp|and] 4).|
|00003950| 28 64 65 66 61 6c 69 61 | 73 20 27 76 69 70 65 72 |(defalia|s 'viper|
|00003960| 2d 61 62 62 72 65 76 69 | 61 74 65 2d 66 69 6c 65 |-abbrevi|ate-file|
|00003970| 2d 6e 61 6d 65 20 23 5b | 28 66 69 6c 65 29 20 22 |-name #[|(file) "|
|00003980| 08 ab 84 c1 5c 6e 21 87 | c1 5c 6e c3 5c 22 87 22 |....\n!.|.\n.\"."|
|00003990| 20 5b 76 69 70 65 72 2d | 65 6d 61 63 73 2d 70 20 | [viper-|emacs-p |
|000039a0| 61 62 62 72 65 76 69 61 | 74 65 2d 66 69 6c 65 2d |abbrevia|te-file-|
|000039b0| 6e 61 6d 65 20 66 69 6c | 65 20 74 5d 20 33 5d 29 |name fil|e t] 3])|
|000039c0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 76 69 70 65 |.(defali|as 'vipe|
|000039d0| 72 2d 73 69 74 2d 66 6f | 72 2d 73 68 6f 72 74 20 |r-sit-fo|r-short |
|000039e0| 23 5b 28 76 61 6c 20 26 | 6f 70 74 69 6f 6e 61 6c |#[(val &|optional|
|000039f0| 20 6e 6f 64 69 73 70 29 | 20 22 08 ab 87 c1 5c 6e | nodisp)| "....\n|
|00003a00| c3 a5 0c 5c 22 87 c1 c5 | 5c 6e 0c 23 87 22 20 5b |...\"...|\n.#." [|
|00003a10| 76 69 70 65 72 2d 78 65 | 6d 61 63 73 2d 70 20 73 |viper-xe|macs-p s|
|00003a20| 69 74 2d 66 6f 72 20 76 | 61 6c 20 31 30 30 30 2e |it-for v|al 1000.|
|00003a30| 30 20 6e 6f 64 69 73 70 | 20 30 5d 20 34 5d 29 0a |0 nodisp| 0] 4]).|
|00003a40| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 4e c2 |(byte-co|de "..N.|
|00003a50| 73 ac 85 c3 c4 c0 5c 22 | 88 c5 c0 c1 c6 23 87 22 |s.....\"|.....#."|
|00003a60| 20 5b 76 69 70 65 72 2d | 73 69 74 2d 66 6f 72 2d | [viper-|sit-for-|
|00003a70| 73 68 6f 72 74 20 62 79 | 74 65 2d 6f 70 74 69 6d |short by|te-optim|
|00003a80| 69 7a 65 72 20 28 6e 69 | 6c 20 62 79 74 65 2d 63 |izer (ni|l byte-c|
|00003a90| 6f 6d 70 69 6c 65 2d 69 | 6e 6c 69 6e 65 2d 65 78 |ompile-i|nline-ex|
|00003aa0| 70 61 6e 64 29 20 65 72 | 72 6f 72 20 22 25 73 20 |pand) er|ror "%s |
|00003ab0| 61 6c 72 65 61 64 79 20 | 68 61 73 20 61 20 62 79 |already |has a by|
|00003ac0| 74 65 2d 6f 70 74 69 6d | 69 7a 65 72 2c 20 63 61 |te-optim|izer, ca|
|00003ad0| 6e 27 74 20 6d 61 6b 65 | 20 69 74 20 69 6e 6c 69 |n't make| it inli|
|00003ae0| 6e 65 22 20 70 75 74 20 | 62 79 74 65 2d 63 6f 6d |ne" put |byte-com|
|00003af0| 70 69 6c 65 2d 69 6e 6c | 69 6e 65 2d 65 78 70 61 |pile-inl|ine-expa|
|00003b00| 6e 64 5d 20 34 29 0a 28 | 64 65 66 61 6c 69 61 73 |nd] 4).(|defalias|
|00003b10| 20 27 76 69 70 65 72 2d | 45 53 43 2d 65 76 65 6e | 'viper-|ESC-even|
|00003b20| 74 2d 70 20 23 5b 28 65 | 76 65 6e 74 29 20 22 c0 |t-p #[(e|vent) ".|
|00003b30| c1 5c 6e 21 1b 1c 0b 0c | b6 2a 87 22 20 5b 28 3f |.\n!....|.*." [(?|
|00003b40| 5c 5e 5b 20 28 63 6f 6e | 74 72 6f 6c 20 5c 5b 29 |\^[ (con|trol \[)|
|00003b50| 20 65 73 63 61 70 65 29 | 20 76 69 70 65 72 2d 65 | escape)| viper-e|
|00003b60| 76 65 6e 74 2d 6b 65 79 | 20 65 76 65 6e 74 20 6b |vent-key| event k|
|00003b70| 65 79 20 45 53 43 2d 6b | 65 79 73 5d 20 33 5d 29 |ey ESC-k|eys] 3])|
|00003b80| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 4e |.(byte-c|ode "..N|
|00003b90| c2 73 ac 85 c3 c4 c0 5c | 22 88 c5 c0 c1 c6 23 87 |.s.....\|".....#.|
|00003ba0| 22 20 5b 76 69 70 65 72 | 2d 45 53 43 2d 65 76 65 |" [viper|-ESC-eve|
|00003bb0| 6e 74 2d 70 20 62 79 74 | 65 2d 6f 70 74 69 6d 69 |nt-p byt|e-optimi|
|00003bc0| 7a 65 72 20 28 6e 69 6c | 20 62 79 74 65 2d 63 6f |zer (nil| byte-co|
|00003bd0| 6d 70 69 6c 65 2d 69 6e | 6c 69 6e 65 2d 65 78 70 |mpile-in|line-exp|
|00003be0| 61 6e 64 29 20 65 72 72 | 6f 72 20 22 25 73 20 61 |and) err|or "%s a|
|00003bf0| 6c 72 65 61 64 79 20 68 | 61 73 20 61 20 62 79 74 |lready h|as a byt|
|00003c00| 65 2d 6f 70 74 69 6d 69 | 7a 65 72 2c 20 63 61 6e |e-optimi|zer, can|
|00003c10| 27 74 20 6d 61 6b 65 20 | 69 74 20 69 6e 6c 69 6e |'t make |it inlin|
|00003c20| 65 22 20 70 75 74 20 62 | 79 74 65 2d 63 6f 6d 70 |e" put b|yte-comp|
|00003c30| 69 6c 65 2d 69 6e 6c 69 | 6e 65 2d 65 78 70 61 6e |ile-inli|ne-expan|
|00003c40| 64 5d 20 34 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |d] 4).(d|efalias |
|00003c50| 27 76 69 70 65 72 2d 76 | 61 6c 69 64 2d 6d 61 72 |'viper-v|alid-mar|
|00003c60| 6b 65 72 20 23 5b 28 6d | 61 72 6b 65 72 29 20 22 |ker #[(m|arker) "|
|00003c70| c0 09 21 ad 9a c2 09 21 | ad 95 c2 09 21 c3 09 21 |..!....!|....!..!|
|00003c80| 1c 1d 8a 0d 71 88 0c 64 | 58 ad 83 65 0c 58 2b 87 |....q..d|X..e.X+.|
|00003c90| 22 20 5b 6d 61 72 6b 65 | 72 70 20 6d 61 72 6b 65 |" [marke|rp marke|
|00003ca0| 72 20 6d 61 72 6b 65 72 | 2d 62 75 66 66 65 72 20 |r marker|-buffer |
|00003cb0| 6d 61 72 6b 65 72 2d 70 | 6f 73 69 74 69 6f 6e 20 |marker-p|osition |
|00003cc0| 70 6f 73 20 62 75 66 5d | 20 33 5d 29 0a 28 64 65 |pos buf]| 3]).(de|
|00003cd0| 66 61 6c 69 61 73 20 27 | 76 69 70 65 72 2d 6d 61 |falias '|viper-ma|
|00003ce0| 72 6b 2d 6d 61 72 6b 65 | 72 20 23 5b 6e 69 6c 20 |rk-marke|r #[nil |
|00003cf0| 22 08 ab 84 c1 c2 21 87 | c1 20 87 22 20 5b 76 69 |".....!.|. ." [vi|
|00003d00| 70 65 72 2d 78 65 6d 61 | 63 73 2d 70 20 6d 61 72 |per-xema|cs-p mar|
|00003d10| 6b 2d 6d 61 72 6b 65 72 | 20 74 5d 20 32 5d 29 0a |k-marker| t] 2]).|
|00003d20| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 4e c2 |(byte-co|de "..N.|
|00003d30| 73 ac 85 c3 c4 c0 5c 22 | 88 c5 c0 c1 c6 23 87 22 |s.....\"|.....#."|
|00003d40| 20 5b 76 69 70 65 72 2d | 6d 61 72 6b 2d 6d 61 72 | [viper-|mark-mar|
|00003d50| 6b 65 72 20 62 79 74 65 | 2d 6f 70 74 69 6d 69 7a |ker byte|-optimiz|
|00003d60| 65 72 20 28 6e 69 6c 20 | 62 79 74 65 2d 63 6f 6d |er (nil |byte-com|
|00003d70| 70 69 6c 65 2d 69 6e 6c | 69 6e 65 2d 65 78 70 61 |pile-inl|ine-expa|
|00003d80| 6e 64 29 20 65 72 72 6f | 72 20 22 25 73 20 61 6c |nd) erro|r "%s al|
|00003d90| 72 65 61 64 79 20 68 61 | 73 20 61 20 62 79 74 65 |ready ha|s a byte|
|00003da0| 2d 6f 70 74 69 6d 69 7a | 65 72 2c 20 63 61 6e 27 |-optimiz|er, can'|
|00003db0| 74 20 6d 61 6b 65 20 69 | 74 20 69 6e 6c 69 6e 65 |t make i|t inline|
|00003dc0| 22 20 70 75 74 20 62 79 | 74 65 2d 63 6f 6d 70 69 |" put by|te-compi|
|00003dd0| 6c 65 2d 69 6e 6c 69 6e | 65 2d 65 78 70 61 6e 64 |le-inlin|e-expand|
|00003de0| 5d 20 34 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |] 4).(de|falias '|
|00003df0| 76 69 70 65 72 2d 73 65 | 74 2d 6d 61 72 6b 2d 69 |viper-se|t-mark-i|
|00003e00| 66 2d 6e 65 63 65 73 73 | 61 72 79 20 23 5b 6e 69 |f-necess|ary #[ni|
|00003e10| 6c 20 22 c0 09 ab 85 c2 | c3 21 aa 82 c2 20 0c 5c |l ".....|.!... .\|
|00003e20| 22 14 c5 c6 21 87 22 20 | 5b 64 65 6c 65 74 65 20 |"...!." |[delete |
|00003e30| 76 69 70 65 72 2d 78 65 | 6d 61 63 73 2d 70 20 6d |viper-xe|macs-p m|
|00003e40| 61 72 6b 2d 6d 61 72 6b | 65 72 20 74 20 6d 61 72 |ark-mark|er t mar|
|00003e50| 6b 2d 72 69 6e 67 20 73 | 65 74 2d 6d 61 72 6b 2d |k-ring s|et-mark-|
|00003e60| 63 6f 6d 6d 61 6e 64 20 | 6e 69 6c 5d 20 33 5d 29 |command |nil] 3])|
|00003e70| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 4e |.(byte-c|ode "..N|
|00003e80| c2 73 ac 85 c3 c4 c0 5c | 22 88 c5 c0 c1 c6 23 87 |.s.....\|".....#.|
|00003e90| 22 20 5b 76 69 70 65 72 | 2d 73 65 74 2d 6d 61 72 |" [viper|-set-mar|
|00003ea0| 6b 2d 69 66 2d 6e 65 63 | 65 73 73 61 72 79 20 62 |k-if-nec|essary b|
|00003eb0| 79 74 65 2d 6f 70 74 69 | 6d 69 7a 65 72 20 28 6e |yte-opti|mizer (n|
|00003ec0| 69 6c 20 62 79 74 65 2d | 63 6f 6d 70 69 6c 65 2d |il byte-|compile-|
|00003ed0| 69 6e 6c 69 6e 65 2d 65 | 78 70 61 6e 64 29 20 65 |inline-e|xpand) e|
|00003ee0| 72 72 6f 72 20 22 25 73 | 20 61 6c 72 65 61 64 79 |rror "%s| already|
|00003ef0| 20 68 61 73 20 61 20 62 | 79 74 65 2d 6f 70 74 69 | has a b|yte-opti|
|00003f00| 6d 69 7a 65 72 2c 20 63 | 61 6e 27 74 20 6d 61 6b |mizer, c|an't mak|
|00003f10| 65 20 69 74 20 69 6e 6c | 69 6e 65 22 20 70 75 74 |e it inl|ine" put|
|00003f20| 20 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 2d 69 6e | byte-co|mpile-in|
|00003f30| 6c 69 6e 65 2d 65 78 70 | 61 6e 64 5d 20 34 29 0a |line-exp|and] 4).|
|00003f40| 28 64 65 66 61 6c 69 61 | 73 20 27 76 69 70 65 72 |(defalia|s 'viper|
|00003f50| 2d 64 65 61 63 74 69 76 | 61 74 65 2d 6d 61 72 6b |-deactiv|ate-mark|
|00003f60| 20 23 5b 6e 69 6c 20 22 | 08 ab 83 c1 20 87 c2 20 | #[nil "|.... .. |
|00003f70| 87 22 20 5b 76 69 70 65 | 72 2d 78 65 6d 61 63 73 |." [vipe|r-xemacs|
|00003f80| 2d 70 20 7a 6d 61 63 73 | 2d 64 65 61 63 74 69 76 |-p zmacs|-deactiv|
|00003f90| 61 74 65 2d 72 65 67 69 | 6f 6e 20 64 65 61 63 74 |ate-regi|on deact|
|00003fa0| 69 76 61 74 65 2d 6d 61 | 72 6b 5d 20 31 5d 29 0a |ivate-ma|rk] 1]).|
|00003fb0| 28 64 65 66 61 6c 69 61 | 73 20 27 76 69 70 65 72 |(defalia|s 'viper|
|00003fc0| 2d 6c 65 61 76 65 2d 72 | 65 67 69 6f 6e 2d 61 63 |-leave-r|egion-ac|
|00003fd0| 74 69 76 65 20 23 5b 6e | 69 6c 20 22 08 ad 83 c1 |tive #[n|il "....|
|00003fe0| 89 12 87 22 20 5b 76 69 | 70 65 72 2d 78 65 6d 61 |..." [vi|per-xema|
|00003ff0| 63 73 2d 70 20 74 20 7a | 6d 61 63 73 2d 72 65 67 |cs-p t z|macs-reg|
|00004000| 69 6f 6e 2d 73 74 61 79 | 73 5d 20 32 5d 29 0a 28 |ion-stay|s] 2]).(|
|00004010| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 4e c2 73 |byte-cod|e "..N.s|
|00004020| ac 85 c3 c4 c0 5c 22 88 | c5 c0 c1 c6 23 87 22 20 |.....\".|....#." |
|00004030| 5b 76 69 70 65 72 2d 6c | 65 61 76 65 2d 72 65 67 |[viper-l|eave-reg|
|00004040| 69 6f 6e 2d 61 63 74 69 | 76 65 20 62 79 74 65 2d |ion-acti|ve byte-|
|00004050| 6f 70 74 69 6d 69 7a 65 | 72 20 28 6e 69 6c 20 62 |optimize|r (nil b|
|00004060| 79 74 65 2d 63 6f 6d 70 | 69 6c 65 2d 69 6e 6c 69 |yte-comp|ile-inli|
|00004070| 6e 65 2d 65 78 70 61 6e | 64 29 20 65 72 72 6f 72 |ne-expan|d) error|
|00004080| 20 22 25 73 20 61 6c 72 | 65 61 64 79 20 68 61 73 | "%s alr|eady has|
|00004090| 20 61 20 62 79 74 65 2d | 6f 70 74 69 6d 69 7a 65 | a byte-|optimize|
|000040a0| 72 2c 20 63 61 6e 27 74 | 20 6d 61 6b 65 20 69 74 |r, can't| make it|
|000040b0| 20 69 6e 6c 69 6e 65 22 | 20 70 75 74 20 62 79 74 | inline"| put byt|
|000040c0| 65 2d 63 6f 6d 70 69 6c | 65 2d 69 6e 6c 69 6e 65 |e-compil|e-inline|
|000040d0| 2d 65 78 70 61 6e 64 5d | 20 34 29 0a 28 64 65 66 |-expand]| 4).(def|
|000040e0| 61 6c 69 61 73 20 27 76 | 69 70 65 72 2d 76 61 6c |alias 'v|iper-val|
|000040f0| 69 64 2d 72 65 67 69 73 | 74 65 72 20 23 5b 28 72 |id-regis|ter #[(r|
|00004100| 65 67 20 26 6f 70 74 69 | 6f 6e 61 6c 20 74 79 70 |eg &opti|onal typ|
|00004110| 65 29 20 22 08 ac 82 c1 | 10 c2 08 73 ab 8a c3 0c |e) "....|...s....|
|00004120| 58 ab 85 0c c5 58 ae 9c | c6 08 73 ab 8a c7 0c 58 |X....X..|..s....X|
|00004130| ab 85 0c c8 58 ae 8d c9 | 08 73 ad 88 ca 0c 58 ad |....X...|.s....X.|
|00004140| 83 0c cb 58 87 22 20 5b | 74 79 70 65 20 28 6c 65 |...X." [|type (le|
|00004150| 74 74 65 72 20 4c 65 74 | 74 65 72 20 64 69 67 69 |tter Let|ter digi|
|00004160| 74 29 20 6c 65 74 74 65 | 72 20 3f 61 20 72 65 67 |t) lette|r ?a reg|
|00004170| 20 3f 7a 20 64 69 67 69 | 74 20 3f 31 20 3f 39 20 | ?z digi|t ?1 ?9 |
|00004180| 4c 65 74 74 65 72 20 3f | 41 20 3f 5a 5d 20 32 5d |Letter ?|A ?Z] 2]|
|00004190| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 76 69 70 |).(defal|ias 'vip|
|000041a0| 65 72 2d 65 76 65 6e 74 | 73 2d 74 6f 2d 6b 65 79 |er-event|s-to-key|
|000041b0| 73 20 23 5b 28 65 76 65 | 6e 74 73 29 20 22 08 ab |s #[(eve|nts) "..|
|000041c0| 84 c1 5c 6e 21 87 5c 6e | 87 22 20 5b 76 69 70 65 |..\n!.\n|." [vipe|
|000041d0| 72 2d 78 65 6d 61 63 73 | 2d 70 20 65 76 65 6e 74 |r-xemacs|-p event|
|000041e0| 73 2d 74 6f 2d 6b 65 79 | 73 20 65 76 65 6e 74 73 |s-to-key|s events|
|000041f0| 5d 20 32 5d 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |] 2]).(b|yte-code|
|00004200| 20 22 c0 c1 4e c2 73 ac | 85 c3 c4 c0 5c 22 88 c5 | "..N.s.|....\"..|
|00004210| c0 c1 c6 23 87 22 20 5b | 76 69 70 65 72 2d 65 76 |...#." [|viper-ev|
|00004220| 65 6e 74 73 2d 74 6f 2d | 6b 65 79 73 20 62 79 74 |ents-to-|keys byt|
|00004230| 65 2d 6f 70 74 69 6d 69 | 7a 65 72 20 28 6e 69 6c |e-optimi|zer (nil|
|00004240| 20 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 2d 69 6e | byte-co|mpile-in|
|00004250| 6c 69 6e 65 2d 65 78 70 | 61 6e 64 29 20 65 72 72 |line-exp|and) err|
|00004260| 6f 72 20 22 25 73 20 61 | 6c 72 65 61 64 79 20 68 |or "%s a|lready h|
|00004270| 61 73 20 61 20 62 79 74 | 65 2d 6f 70 74 69 6d 69 |as a byt|e-optimi|
|00004280| 7a 65 72 2c 20 63 61 6e | 27 74 20 6d 61 6b 65 20 |zer, can|'t make |
|00004290| 69 74 20 69 6e 6c 69 6e | 65 22 20 70 75 74 20 62 |it inlin|e" put b|
|000042a0| 79 74 65 2d 63 6f 6d 70 | 69 6c 65 2d 69 6e 6c 69 |yte-comp|ile-inli|
|000042b0| 6e 65 2d 65 78 70 61 6e | 64 5d 20 34 29 0a 28 64 |ne-expan|d] 4).(d|
|000042c0| 65 66 61 6c 69 61 73 20 | 27 76 69 70 65 72 2d 61 |efalias |'viper-a|
|000042d0| 64 64 2d 68 6f 6f 6b 20 | 23 5b 28 68 6f 6f 6b 20 |dd-hook |#[(hook |
|000042e0| 66 75 6e 63 74 69 6f 6e | 20 26 6f 70 74 69 6f 6e |function| &option|
|000042f0| 61 6c 20 61 70 70 65 6e | 64 29 20 22 c0 09 21 ac |al appen|d) "..!.|
|00004300| 84 09 c2 4c 88 09 4a 89 | 1b 3c ab 86 0b 40 c4 61 |...L..J.|.<...@.a|
|00004310| ab 83 0b 43 13 0d 0b b6 | 3f ad 90 09 0e 06 ab 87 |...C....|?.......|
|00004320| c6 0b 0d 43 5c 22 aa 83 | 0d 0b 42 4c 29 87 22 20 |...C\"..|..BL)." |
|00004330| 5b 62 6f 75 6e 64 70 20 | 68 6f 6f 6b 20 6e 69 6c |[boundp |hook nil|
|00004340| 20 6f 6c 64 20 6c 61 6d | 62 64 61 20 66 75 6e 63 | old lam|bda func|
|00004350| 74 69 6f 6e 20 61 70 70 | 65 6e 64 5d 20 35 5d 29 |tion app|end] 5])|
|00004360| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 76 69 70 65 |.(defali|as 'vipe|
|00004370| 72 2d 72 65 6d 6f 76 65 | 2d 68 6f 6f 6b 20 23 5b |r-remove|-hook #[|
|00004380| 28 68 6f 6f 6b 20 66 75 | 6e 63 74 69 6f 6e 29 20 |(hook fu|nction) |
|00004390| 22 c0 09 21 3f ae 87 09 | 4a 3f ae 82 5c 6e 3f 3f |"..!?...|J?..\n??|
|000043a0| ad 9b 09 4a 89 1b 3a ab | 89 c4 5c 6e c5 0b 21 5c |...J..:.|..\n..!\|
|000043b0| 22 13 aa 87 0b 5c 6e 6b | ab 82 c6 13 09 0b 4c 29 |"....\nk|......L)|
|000043c0| 87 22 20 5b 62 6f 75 6e | 64 70 20 68 6f 6f 6b 20 |." [boun|dp hook |
|000043d0| 66 75 6e 63 74 69 6f 6e | 20 68 6f 6f 6b 2d 76 61 |function| hook-va|
|000043e0| 6c 75 65 20 64 65 6c 65 | 74 65 20 63 6f 70 79 2d |lue dele|te copy-|
|000043f0| 73 65 71 75 65 6e 63 65 | 20 6e 69 6c 5d 20 35 5d |sequence| nil] 5]|
|00004400| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 76 69 70 |).(defal|ias 'vip|
|00004410| 65 72 2d 63 6f 70 79 2d | 65 76 65 6e 74 20 23 5b |er-copy-|event #[|
|00004420| 28 65 76 65 6e 74 29 20 | 22 08 ab 84 c1 5c 6e 21 |(event) |"....\n!|
|00004430| 87 5c 6e 87 22 20 5b 76 | 69 70 65 72 2d 78 65 6d |.\n." [v|iper-xem|
|00004440| 61 63 73 2d 70 20 63 6f | 70 79 2d 65 76 65 6e 74 |acs-p co|py-event|
|00004450| 20 65 76 65 6e 74 5d 20 | 32 5d 29 0a 28 64 65 66 | event] |2]).(def|
|00004460| 61 6c 69 61 73 20 27 76 | 69 70 65 72 2d 72 65 61 |alias 'v|iper-rea|
|00004470| 64 2d 65 76 65 6e 74 2d | 63 6f 6e 76 65 72 74 2d |d-event-|convert-|
|00004480| 74 6f 2d 63 68 61 72 20 | 23 5b 6e 69 6c 20 22 c0 |to-char |#[nil ".|
|00004490| 19 5c 6e ab 84 c3 20 aa | 89 c4 20 11 c5 09 21 ae |.\n... .|.. ...!.|
|000044a0| 81 09 29 87 22 20 5b 6e | 69 6c 20 65 76 65 6e 74 |..)." [n|il event|
|000044b0| 20 76 69 70 65 72 2d 65 | 6d 61 63 73 2d 70 20 72 | viper-e|macs-p r|
|000044c0| 65 61 64 2d 65 76 65 6e | 74 20 6e 65 78 74 2d 63 |ead-even|t next-c|
|000044d0| 6f 6d 6d 61 6e 64 2d 65 | 76 65 6e 74 20 65 76 65 |ommand-e|vent eve|
|000044e0| 6e 74 2d 74 6f 2d 63 68 | 61 72 61 63 74 65 72 5d |nt-to-ch|aracter]|
|000044f0| 20 32 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 | 2]).(de|falias '|
|00004500| 76 69 70 65 72 2d 72 65 | 61 64 2d 6b 65 79 20 23 |viper-re|ad-key #|
|00004510| 5b 6e 69 6c 20 22 08 c1 | c2 89 1b 1c 1d 1e 06 c7 |[nil "..|........|
|00004520| 08 21 88 c8 8e c9 c2 21 | ca 9c 13 29 0b 2c 87 22 |.!.....!|...).,."|
|00004530| 20 5b 76 69 70 65 72 2d | 6f 76 65 72 72 69 64 69 | [viper-|overridi|
|00004540| 6e 67 2d 6d 61 70 20 74 | 20 6e 69 6c 20 6b 65 79 |ng-map t| nil key|
|00004550| 20 68 65 6c 70 2d 63 68 | 61 72 20 69 6e 68 69 62 | help-ch|ar inhib|
|00004560| 69 74 2d 71 75 69 74 20 | 6f 76 65 72 72 69 64 69 |it-quit |overridi|
|00004570| 6e 67 2d 6c 6f 63 61 6c | 2d 6d 61 70 20 75 73 65 |ng-local|-map use|
|00004580| 2d 67 6c 6f 62 61 6c 2d | 6d 61 70 20 28 28 75 73 |-global-|map ((us|
|00004590| 65 2d 67 6c 6f 62 61 6c | 2d 6d 61 70 20 67 6c 6f |e-global|-map glo|
|000045a0| 62 61 6c 2d 6d 61 70 29 | 29 20 72 65 61 64 2d 6b |bal-map)|) read-k|
|000045b0| 65 79 2d 73 65 71 75 65 | 6e 63 65 20 30 5d 20 34 |ey-seque|nce 0] 4|
|000045c0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 76 69 |]).(defa|lias 'vi|
|000045d0| 70 65 72 2d 65 76 65 6e | 74 2d 6b 65 79 20 23 5b |per-even|t-key #[|
|000045e0| 28 65 76 65 6e 74 29 20 | 22 08 ab 85 c1 08 21 ac |(event) |".....!.|
|000045f0| 85 c2 c3 08 5c 22 88 0c | ab 8a c5 08 21 ac 89 c6 |....\"..|....!...|
|00004600| 08 21 aa 81 c7 85 e0 00 | c8 08 21 c9 1e 5c 6e 1e |.!......|..!..\n.|
|00004610| 0b 0c ab 9f c5 08 21 ab | 86 cc 08 21 82 b5 00 cd |......!.|...!....|
|00004620| 08 21 ab 89 ce cf d0 08 | 21 21 50 aa f3 c2 d1 08 |.!......|!!P.....|
|00004630| 5c 22 aa ed d2 08 21 ab | 92 d3 08 58 ab 8d 08 d4 |\"....!.|...X....|
|00004640| 58 ab 88 c9 16 0b 08 89 | 10 aa d6 d2 08 21 ab 96 |X.......|.....!..|
|00004650| d5 08 57 ab 91 08 d6 58 | ab 8c d7 16 0b 08 d5 5a |..W....X|.......Z|
|00004660| d8 5a 89 10 aa bb 0e 0b | ac 8a 08 d9 61 ab 85 da |.Z......|....a...|
|00004670| 89 10 aa ad 0e 0b ac 8a | 08 db 61 ab 85 dc 89 10 |........|..a.....|
|00004680| aa 9f 0e 0b ac 8a 08 dd | 61 ab 85 d5 89 10 aa 91 |........|a.......|
|00004690| 0e 0b ac 8a 08 de 61 ab | 85 df 89 10 aa 83 e0 08 |......a.|........|
|000046a0| 21 16 5c 6e d2 0e 5c 6e | 21 ab 93 0e 5c 6e d5 55 |!.\n..\n|!...\n.U|
|000046b0| ab 85 e1 e2 44 aa 86 e3 | e4 0e 5c 6e 21 21 16 5c |....D...|..\n!!.\|
|000046c0| 6e 0e 0b ab 89 e5 0e 0b | 0e 5c 6e 43 5c 22 aa 82 |n.......|.\nC\"..|
|000046d0| 0e 5c 6e 2a 87 22 20 5b | 65 76 65 6e 74 20 65 76 |.\n*." [|event ev|
|000046e0| 65 6e 74 70 20 65 72 72 | 6f 72 20 22 76 69 70 65 |entp err|or "vipe|
|000046f0| 72 2d 65 76 65 6e 74 2d | 6b 65 79 3a 20 57 72 6f |r-event-|key: Wro|
|00004700| 6e 67 20 74 79 70 65 20 | 61 72 67 75 6d 65 6e 74 |ng type |argument|
|00004710| 2c 20 65 76 65 6e 74 70 | 2c 20 25 53 22 20 76 69 |, eventp|, %S" vi|
|00004720| 70 65 72 2d 78 65 6d 61 | 63 73 2d 70 20 6b 65 79 |per-xema|cs-p key|
|00004730| 2d 70 72 65 73 73 2d 65 | 76 65 6e 74 2d 70 20 6d |-press-e|vent-p m|
|00004740| 6f 75 73 65 2d 65 76 65 | 6e 74 2d 70 20 74 20 65 |ouse-eve|nt-p t e|
|00004750| 76 65 6e 74 2d 6d 6f 64 | 69 66 69 65 72 73 20 6e |vent-mod|ifiers n|
|00004760| 69 6c 20 62 61 73 69 73 | 20 6d 6f 64 20 65 76 65 |il basis| mod eve|
|00004770| 6e 74 2d 6b 65 79 20 62 | 75 74 74 6f 6e 2d 65 76 |nt-key b|utton-ev|
|00004780| 65 6e 74 2d 70 20 22 6d | 6f 75 73 65 2d 22 20 70 |ent-p "m|ouse-" p|
|00004790| 72 69 6e 31 2d 74 6f 2d | 73 74 72 69 6e 67 20 65 |rin1-to-|string e|
|000047a0| 76 65 6e 74 2d 62 75 74 | 74 6f 6e 20 22 76 69 70 |vent-but|ton "vip|
|000047b0| 65 72 2d 65 76 65 6e 74 | 2d 6b 65 79 3a 20 55 6e |er-event|-key: Un|
|000047c0| 6b 6e 6f 77 6e 20 65 76 | 65 6e 74 2c 20 25 53 22 |known ev|ent, %S"|
|000047d0| 20 76 69 70 65 72 2d 63 | 68 61 72 61 63 74 65 72 | viper-c|haracter|
|000047e0| 70 20 3f 41 20 3f 5a 20 | 3f 5c 5e 3f 20 32 35 35 |p ?A ?Z |?\^? 255|
|000047f0| 20 28 6d 65 74 61 29 20 | 31 20 72 65 74 75 72 6e | (meta) |1 return|
|00004800| 20 3f 5c 72 20 73 70 61 | 63 65 20 3f 5c 20 20 64 | ?\r spa|ce ?\ d|
|00004810| 65 6c 65 74 65 20 62 61 | 63 6b 73 70 61 63 65 20 |elete ba|ckspace |
|00004820| 3f 5c 5e 48 20 65 76 65 | 6e 74 2d 62 61 73 69 63 |?\^H eve|nt-basic|
|00004830| 2d 74 79 70 65 20 63 6f | 6e 74 72 6f 6c 20 5c 3f |-type co|ntrol \?|
|00004840| 20 69 6e 74 65 72 6e 20 | 63 68 61 72 2d 74 6f 2d | intern |char-to-|
|00004850| 73 74 72 69 6e 67 20 61 | 70 70 65 6e 64 5d 20 34 |string a|ppend] 4|
|00004860| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 76 69 |]).(defa|lias 'vi|
|00004870| 70 65 72 2d 6b 65 79 2d | 74 6f 2d 65 6d 61 63 73 |per-key-|to-emacs|
|00004880| 2d 6b 65 79 20 23 5b 28 | 6b 65 79 29 20 22 c0 89 |-key #[(|key) "..|
|00004890| 89 89 89 89 19 1a 1b 1c | 1d 1e 06 0e 07 ab 85 0e |........|........|
|000048a0| 08 82 9c 00 0e 08 39 ab | b8 c9 0e 08 21 89 16 06 |......9.|....!...|
|000048b0| 47 ca 55 ab 86 cb 0e 06 | 21 aa ef 0e 0c ab 8d cd |G.U.....|!.......|
|000048c0| 20 ac 89 0e 06 ce 98 ab | 83 cf aa de 0e 0c ab 8d | .......|........|
|000048d0| cd 20 ac 89 0e 06 d0 98 | ab 83 d1 aa cd 0e 08 aa |. ......|........|
|000048e0| c9 0e 08 3c ad c4 d2 0e | 08 d3 0e 08 47 53 23 14 |...<....|....GS#.|
|000048f0| 0e 08 89 1e 14 89 47 53 | 9c 29 12 c9 5c 6e 21 89 |......GS|.)..\n!.|
|00004900| 11 47 ca 55 15 d5 d6 0c | 5c 22 13 0d ab 91 d7 d8 |.G.U....|\"......|
|00004910| d9 da 0b db 23 dc 09 52 | 21 40 89 16 06 aa 8d dd |....#..R|!@......|
|00004920| d9 da 0b dc 23 dc 09 51 | 21 89 16 06 2e 06 87 22 |....#..Q|!......"|
|00004930| 20 5b 6e 69 6c 20 62 61 | 73 65 2d 6b 65 79 2d 6e | [nil ba|se-key-n|
|00004940| 61 6d 65 20 62 61 73 65 | 2d 6b 65 79 20 6d 6f 64 |ame base|-key mod|
|00004950| 2d 63 68 61 72 2d 6c 69 | 73 74 20 6d 6f 64 69 66 |-char-li|st modif|
|00004960| 69 65 72 73 20 63 68 61 | 72 2d 70 20 6b 65 79 2d |iers cha|r-p key-|
|00004970| 6e 61 6d 65 20 76 69 70 | 65 72 2d 78 65 6d 61 63 |name vip|er-xemac|
|00004980| 73 2d 70 20 6b 65 79 20 | 73 79 6d 62 6f 6c 2d 6e |s-p key |symbol-n|
|00004990| 61 6d 65 20 31 20 73 74 | 72 69 6e 67 2d 74 6f 2d |ame 1 st|ring-to-|
|000049a0| 63 68 61 72 20 76 69 70 | 65 72 2d 65 6d 61 63 73 |char vip|er-emacs|
|000049b0| 2d 70 20 76 69 70 65 72 | 2d 77 69 6e 64 6f 77 2d |-p viper|-window-|
|000049c0| 64 69 73 70 6c 61 79 2d | 70 20 22 72 65 74 75 72 |display-|p "retur|
|000049d0| 6e 22 20 3f 5c 72 20 22 | 65 73 63 61 70 65 22 20 |n" ?\r "|escape" |
|000049e0| 3f 5c 5e 5b 20 73 75 62 | 73 65 71 20 30 20 73 65 |?\^[ sub|seq 0 se|
|000049f0| 71 20 6d 61 70 63 61 72 | 20 23 5b 28 65 6c 74 29 |q mapcar| #[(elt)|
|00004a00| 20 22 c0 09 21 c2 c3 4f | 96 87 22 20 5b 73 79 6d | "..!..O|.." [sym|
|00004a10| 62 6f 6c 2d 6e 61 6d 65 | 20 65 6c 74 20 30 20 31 |bol-name| elt 0 1|
|00004a20| 5d 20 33 5d 20 72 65 61 | 64 2d 66 72 6f 6d 2d 73 |] 3] rea|d-from-s|
|00004a30| 74 72 69 6e 67 20 22 3f | 5c 5c 22 20 6d 61 70 63 |tring "?|\\" mapc|
|00004a40| 6f 6e 63 61 74 20 69 64 | 65 6e 74 69 74 79 20 22 |oncat id|entity "|
|00004a50| 2d 5c 5c 22 20 22 2d 22 | 20 69 6e 74 65 72 6e 5d |-\\" "-"| intern]|
|00004a60| 20 37 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 | 7]).(de|falias '|
|00004a70| 76 69 70 65 72 2d 61 72 | 72 61 79 2d 74 6f 2d 73 |viper-ar|ray-to-s|
|00004a80| 74 72 69 6e 67 20 23 5b | 28 65 76 65 6e 74 2d 73 |tring #[|(event-s|
|00004a90| 65 71 29 20 22 c0 89 19 | 1a 0b 3b ab 83 0b aa d3 |eq) "...|..;.....|
|00004aa0| c4 0b 21 ab a9 c5 c6 0b | 5c 22 12 c7 5c 6e 21 ab |..!.....|\"..\n!.|
|00004ab0| 87 c8 c9 5c 6e ca 23 aa | bd cb c5 cc 5c 6e 5c 22 |...\n.#.|....\n\"|
|00004ac0| 89 11 21 ab 87 c8 cd 09 | ca 23 aa ac ce cf 5c 6e |..!.....|.#....\n|
|00004ad0| 21 21 aa a5 c7 0b 21 ab | 87 c8 c9 0b ca 23 aa 99 |!!....!.|.....#..|
|00004ae0| d0 0b 21 ab 91 cb c5 cc | 0b 5c 22 89 12 21 ab 87 |..!.....|.\"..!..|
|00004af0| c8 cd 5c 6e ca 23 aa 83 | ce 0b 21 2a 87 22 20 5b |..\n.#..|..!*." [|
|00004b00| 6e 69 6c 20 74 65 6d 70 | 32 20 74 65 6d 70 20 65 |nil temp|2 temp e|
|00004b10| 76 65 6e 74 2d 73 65 71 | 20 76 69 70 65 72 2d 65 |vent-seq| viper-e|
|00004b20| 76 65 6e 74 2d 76 65 63 | 74 6f 72 2d 70 20 6d 61 |vent-vec|tor-p ma|
|00004b30| 70 63 61 72 20 76 69 70 | 65 72 2d 65 76 65 6e 74 |pcar vip|er-event|
|00004b40| 2d 6b 65 79 20 76 69 70 | 65 72 2d 63 68 61 72 2d |-key vip|er-char-|
|00004b50| 73 79 6d 62 6f 6c 2d 73 | 65 71 75 65 6e 63 65 2d |symbol-s|equence-|
|00004b60| 70 20 6d 61 70 63 6f 6e | 63 61 74 20 73 79 6d 62 |p mapcon|cat symb|
|00004b70| 6f 6c 2d 6e 61 6d 65 20 | 22 22 20 76 69 70 65 72 |ol-name |"" viper|
|00004b80| 2d 63 68 61 72 2d 61 72 | 72 61 79 2d 70 20 76 69 |-char-ar|ray-p vi|
|00004b90| 70 65 72 2d 6b 65 79 2d | 74 6f 2d 63 68 61 72 61 |per-key-|to-chara|
|00004ba0| 63 74 65 72 20 63 68 61 | 72 2d 74 6f 2d 73 74 72 |cter cha|r-to-str|
|00004bb0| 69 6e 67 20 70 72 69 6e | 31 2d 74 6f 2d 73 74 72 |ing prin|1-to-str|
|00004bc0| 69 6e 67 20 76 63 6f 6e | 63 61 74 20 76 65 63 74 |ing vcon|cat vect|
|00004bd0| 6f 72 70 5d 20 34 5d 29 | 0a 28 64 65 66 61 6c 69 |orp] 4])|.(defali|
|00004be0| 61 73 20 27 76 69 70 65 | 72 2d 6b 65 79 2d 70 72 |as 'vipe|r-key-pr|
|00004bf0| 65 73 73 2d 65 76 65 6e | 74 73 2d 74 6f 2d 63 68 |ess-even|ts-to-ch|
|00004c00| 61 72 73 20 23 5b 28 65 | 76 65 6e 74 73 29 20 22 |ars #[(e|vents) "|
|00004c10| c0 09 ab 83 c2 aa 81 c3 | 0c c5 23 87 22 20 5b 6d |........|..#." [m|
|00004c20| 61 70 63 6f 6e 63 61 74 | 20 76 69 70 65 72 2d 65 |apconcat| viper-e|
|00004c30| 6d 61 63 73 2d 70 20 63 | 68 61 72 2d 74 6f 2d 73 |macs-p c|har-to-s|
|00004c40| 74 72 69 6e 67 20 23 5b | 28 65 6c 74 29 20 22 c0 |tring #[|(elt) ".|
|00004c50| c1 5c 6e 21 21 87 22 20 | 5b 63 68 61 72 2d 74 6f |.\n!!." |[char-to|
|00004c60| 2d 73 74 72 69 6e 67 20 | 65 76 65 6e 74 2d 74 6f |-string |event-to|
|00004c70| 2d 63 68 61 72 61 63 74 | 65 72 20 65 6c 74 5d 20 |-charact|er elt] |
|00004c80| 33 5d 20 65 76 65 6e 74 | 73 20 22 22 5d 20 34 5d |3] event|s ""] 4]|
|00004c90| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 76 69 70 |).(defal|ias 'vip|
|00004ca0| 65 72 2d 66 61 73 74 2d | 6b 65 79 73 65 71 75 65 |er-fast-|keyseque|
|00004cb0| 6e 63 65 2d 70 20 23 5b | 6e 69 6c 20 22 08 19 c2 |nce-p #[|nil "...|
|00004cc0| c3 09 21 1c 1d 0c 0d b6 | 2b ab 84 0e 06 aa 82 0e |..!.....|+.......|
|00004cd0| 07 c8 1e 09 1e 5c 6e 0e | 0b ab 8a cc 0e 5c 6e cd |.....\n.|.....\n.|
|00004ce0| a5 0e 09 5c 22 aa 87 cc | ce 0e 5c 6e 0e 09 23 2a |...\"...|..\n..#*|
|00004cf0| 3f 87 22 20 5b 6c 61 73 | 74 2d 69 6e 70 75 74 2d |?." [las|t-input-|
|00004d00| 65 76 65 6e 74 20 65 76 | 65 6e 74 20 28 3f 5c 5e |event ev|ent (?\^|
|00004d10| 5b 20 28 63 6f 6e 74 72 | 6f 6c 20 5c 5b 29 20 65 |[ (contr|ol \[) e|
|00004d20| 73 63 61 70 65 29 20 76 | 69 70 65 72 2d 65 76 65 |scape) v|iper-eve|
|00004d30| 6e 74 2d 6b 65 79 20 6b | 65 79 20 45 53 43 2d 6b |nt-key k|ey ESC-k|
|00004d40| 65 79 73 20 76 69 70 65 | 72 2d 45 53 43 2d 6b 65 |eys vipe|r-ESC-ke|
|00004d50| 79 73 65 71 2d 74 69 6d | 65 6f 75 74 20 76 69 70 |yseq-tim|eout vip|
|00004d60| 65 72 2d 66 61 73 74 2d | 6b 65 79 73 65 71 2d 74 |er-fast-|keyseq-t|
|00004d70| 69 6d 65 6f 75 74 20 74 | 20 6e 6f 64 69 73 70 20 |imeout t| nodisp |
|00004d80| 76 61 6c 20 76 69 70 65 | 72 2d 78 65 6d 61 63 73 |val vipe|r-xemacs|
|00004d90| 2d 70 20 73 69 74 2d 66 | 6f 72 20 31 30 30 30 2e |-p sit-f|or 1000.|
|00004da0| 30 20 30 5d 20 34 5d 29 | 0a 28 62 79 74 65 2d 63 |0 0] 4])|.(byte-c|
|00004db0| 6f 64 65 20 22 c0 c1 4e | c2 73 ac 85 c3 c4 c0 5c |ode "..N|.s.....\|
|00004dc0| 22 88 c5 c0 c1 c6 23 87 | 22 20 5b 76 69 70 65 72 |".....#.|" [viper|
|00004dd0| 2d 66 61 73 74 2d 6b 65 | 79 73 65 71 75 65 6e 63 |-fast-ke|ysequenc|
|00004de0| 65 2d 70 20 62 79 74 65 | 2d 6f 70 74 69 6d 69 7a |e-p byte|-optimiz|
|00004df0| 65 72 20 28 6e 69 6c 20 | 62 79 74 65 2d 63 6f 6d |er (nil |byte-com|
|00004e00| 70 69 6c 65 2d 69 6e 6c | 69 6e 65 2d 65 78 70 61 |pile-inl|ine-expa|
|00004e10| 6e 64 29 20 65 72 72 6f | 72 20 22 25 73 20 61 6c |nd) erro|r "%s al|
|00004e20| 72 65 61 64 79 20 68 61 | 73 20 61 20 62 79 74 65 |ready ha|s a byte|
|00004e30| 2d 6f 70 74 69 6d 69 7a | 65 72 2c 20 63 61 6e 27 |-optimiz|er, can'|
|00004e40| 74 20 6d 61 6b 65 20 69 | 74 20 69 6e 6c 69 6e 65 |t make i|t inline|
|00004e50| 22 20 70 75 74 20 62 79 | 74 65 2d 63 6f 6d 70 69 |" put by|te-compi|
|00004e60| 6c 65 2d 69 6e 6c 69 6e | 65 2d 65 78 70 61 6e 64 |le-inlin|e-expand|
|00004e70| 5d 20 34 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |] 4).(de|falias '|
|00004e80| 76 69 70 65 72 2d 72 65 | 61 64 2d 63 68 61 72 2d |viper-re|ad-char-|
|00004e90| 65 78 63 6c 75 73 69 76 | 65 20 23 5b 6e 69 6c 20 |exclusiv|e #[nil |
|00004ea0| 22 c0 c1 1a 1b 0b ac 87 | c0 c4 c5 8f 88 aa 76 0b |".......|......v.|
|00004eb0| 2a 87 22 20 5b 6e 69 6c | 20 31 20 65 63 68 6f 2d |*." [nil| 1 echo-|
|00004ec0| 6b 65 79 73 74 72 6f 6b | 65 73 20 63 68 61 72 20 |keystrok|es char |
|00004ed0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 20 11 c0 |(byte-co|de ". ..|
|00004ee0| 87 22 20 5b 72 65 61 64 | 2d 63 68 61 72 20 63 68 |." [read|-char ch|
|00004ef0| 61 72 5d 20 31 29 20 28 | 28 65 72 72 6f 72 20 28 |ar] 1) (|(error (|
|00004f00| 76 69 70 65 72 2d 72 65 | 61 64 2d 65 76 65 6e 74 |viper-re|ad-event|
|00004f10| 29 29 29 5d 20 33 5d 29 | 0a 28 64 65 66 61 6c 69 |)))] 3])|.(defali|
|00004f20| 61 73 20 27 76 69 70 65 | 72 2d 6b 65 79 2d 74 6f |as 'vipe|r-key-to|
|00004f30| 2d 63 68 61 72 61 63 74 | 65 72 20 23 5b 28 6b 65 |-charact|er #[(ke|
|00004f40| 79 29 20 22 08 c1 61 ab | 82 c2 87 08 c3 61 ab 82 |y) "..a.|.....a..|
|00004f50| c4 87 08 c5 61 ab 82 c6 | 87 08 c7 61 ab 82 c8 87 |....a...|...a....|
|00004f60| 08 39 ab 8e c9 08 21 47 | ca 55 ab 86 cb c9 08 21 |.9....!G|.U.....!|
|00004f70| 21 87 08 3c ab a2 08 40 | cc 61 ab 9c c9 08 41 40 |!..<...@|.a....A@|
|00004f80| 21 ab 95 c9 08 41 40 21 | 47 ca 55 ab 8b cd ce cf |!....A@!|G.U.....|
|00004f90| c9 08 41 40 21 5c 22 21 | 87 08 87 22 20 5b 6b 65 |..A@!\"!|..." [ke|
|00004fa0| 79 20 73 70 61 63 65 20 | 3f 5c 20 20 64 65 6c 65 |y space |?\ dele|
|00004fb0| 74 65 20 3f 5c 5e 3f 20 | 72 65 74 75 72 6e 20 3f |te ?\^? |return ?|
|00004fc0| 5c 72 20 62 61 63 6b 73 | 70 61 63 65 20 3f 5c 5e |\r backs|pace ?\^|
|00004fd0| 48 20 73 79 6d 62 6f 6c | 2d 6e 61 6d 65 20 31 20 |H symbol|-name 1 |
|00004fe0| 73 74 72 69 6e 67 2d 74 | 6f 2d 63 68 61 72 20 63 |string-t|o-char c|
|00004ff0| 6f 6e 74 72 6f 6c 20 72 | 65 61 64 20 66 6f 72 6d |ontrol r|ead form|
|00005000| 61 74 20 22 3f 5c 5c 43 | 2d 25 73 22 5d 20 35 5d |at "?\\C|-%s"] 5]|
|00005010| 29 0a 23 40 31 36 33 20 | 53 65 74 20 75 70 20 74 |).#@163 |Set up t|
|00005020| 68 65 20 63 75 72 72 65 | 6e 74 20 62 75 66 66 65 |he curre|nt buffe|
|00005030| 72 20 61 73 20 61 20 6d | 61 73 74 65 72 20 62 75 |r as a m|aster bu|
|00005040| 66 66 65 72 2e 0a 41 72 | 67 75 6d 65 6e 74 73 20 |ffer..Ar|guments |
|00005050| 62 65 63 6f 6d 65 20 72 | 65 6c 61 74 65 64 20 62 |become r|elated b|
|00005060| 75 66 66 65 72 73 2e 20 | 54 68 69 73 20 66 75 6e |uffers. |This fun|
|00005070| 63 74 69 6f 6e 20 73 68 | 6f 75 6c 64 20 6e 6f 72 |ction sh|ould nor|
|00005080| 6d 61 6c 6c 79 20 62 65 | 20 75 73 65 64 20 69 6e |mally be| used in|
|00005090| 0a 74 68 65 20 60 4c 6f | 63 61 6c 20 76 61 72 69 |.the `Lo|cal vari|
|000050a0| 61 62 6c 65 73 27 20 73 | 65 63 74 69 6f 6e 20 6f |ables' s|ection o|
|000050b0| 66 20 61 20 66 69 6c 65 | 2e 1f 0a 28 64 65 66 61 |f a file|...(defa|
|000050c0| 6c 69 61 73 20 27 76 69 | 70 65 72 2d 73 65 74 75 |lias 'vi|per-setu|
|000050d0| 70 2d 6d 61 73 74 65 72 | 2d 62 75 66 66 65 72 20 |p-master|-buffer |
|000050e0| 23 5b 28 26 72 65 73 74 | 20 6f 74 68 65 72 2d 66 |#[(&rest| other-f|
|000050f0| 69 6c 65 73 2d 6f 72 2d | 62 75 66 66 65 72 73 29 |iles-or-|buffers)|
|00005100| 20 22 c0 09 47 54 21 12 | c3 c4 09 5c 22 88 c5 5c | "..GT!.|...\"..\|
|00005110| 6e c6 20 5c 22 87 22 20 | 5b 6d 61 6b 65 2d 72 69 |n. \"." |[make-ri|
|00005120| 6e 67 20 6f 74 68 65 72 | 2d 66 69 6c 65 73 2d 6f |ng other|-files-o|
|00005130| 72 2d 62 75 66 66 65 72 | 73 20 76 69 70 65 72 2d |r-buffer|s viper-|
|00005140| 72 65 6c 61 74 65 64 2d | 66 69 6c 65 73 2d 61 6e |related-|files-an|
|00005150| 64 2d 62 75 66 66 65 72 | 73 2d 72 69 6e 67 20 6d |d-buffer|s-ring m|
|00005160| 61 70 63 61 72 20 23 5b | 28 65 6c 74 29 20 22 c0 |apcar #[|(elt) ".|
|00005170| 09 5c 6e 5c 22 87 22 20 | 5b 76 69 70 65 72 2d 72 |.\n\"." |[viper-r|
|00005180| 69 6e 67 2d 69 6e 73 65 | 72 74 20 76 69 70 65 72 |ing-inse|rt viper|
|00005190| 2d 72 65 6c 61 74 65 64 | 2d 66 69 6c 65 73 2d 61 |-related|-files-a|
|000051a0| 6e 64 2d 62 75 66 66 65 | 72 73 2d 72 69 6e 67 20 |nd-buffe|rs-ring |
|000051b0| 65 6c 74 5d 20 33 5d 20 | 76 69 70 65 72 2d 72 69 |elt] 3] |viper-ri|
|000051c0| 6e 67 2d 69 6e 73 65 72 | 74 20 62 75 66 66 65 72 |ng-inser|t buffer|
|000051d0| 2d 6e 61 6d 65 5d 20 33 | 20 28 23 24 20 2e 20 32 |-name] 3| (#$ . 2|
|000051e0| 30 35 30 34 29 5d 29 0a | 28 62 79 74 65 2d 63 6f |0504)]).|(byte-co|
|000051f0| 64 65 20 22 c0 11 c1 5c | 6e 42 12 c1 87 22 20 5b |de "...\|nB..." [|
|00005200| 22 21 40 23 24 25 5e 26 | 2a 28 29 2d 2b 3d 7c 5c |"!@#$%^&|*()-+=|\|
|00005210| 5c 7e 60 7b 7d 5b 5d 3b | 3a 27 5c 22 2c 3c 2e 3e |\~`{}[];|:'\",<.>|
|00005220| 2f 3f 22 20 76 69 70 65 | 72 2d 6e 6f 6e 2d 77 6f |/?" vipe|r-non-wo|
|00005230| 72 64 2d 63 68 61 72 61 | 63 74 65 72 73 2d 72 65 |rd-chara|cters-re|
|00005240| 66 6f 72 6d 65 64 2d 76 | 69 20 63 75 72 72 65 6e |formed-v|i curren|
|00005250| 74 2d 6c 6f 61 64 2d 6c | 69 73 74 5d 20 32 29 0a |t-load-l|ist] 2).|
|00005260| 23 40 32 30 20 6e 69 6c | 0a 28 62 75 66 66 65 72 |#@20 nil|.(buffer|
|00005270| 20 6c 6f 63 61 6c 29 1f | 0a 28 64 65 66 76 61 72 | local).|.(defvar|
|00005280| 20 76 69 70 65 72 2d 6e | 6f 6e 2d 77 6f 72 64 2d | viper-n|on-word-|
|00005290| 63 68 61 72 61 63 74 65 | 72 73 20 6e 69 6c 20 28 |characte|rs nil (|
|000052a0| 23 24 20 2e 20 32 31 30 | 39 33 29 29 0a 28 6d 61 |#$ . 210|93)).(ma|
|000052b0| 6b 65 2d 76 61 72 69 61 | 62 6c 65 2d 62 75 66 66 |ke-varia|ble-buff|
|000052c0| 65 72 2d 6c 6f 63 61 6c | 20 27 76 69 70 65 72 2d |er-local| 'viper-|
|000052d0| 6e 6f 6e 2d 77 6f 72 64 | 2d 63 68 61 72 61 63 74 |non-word|-charact|
|000052e0| 65 72 73 29 0a 23 40 32 | 30 37 20 53 74 72 69 6e |ers).#@2|07 Strin|
|000052f0| 67 20 6f 66 20 73 79 6e | 74 61 78 20 63 6c 61 73 |g of syn|tax clas|
|00005300| 73 65 73 20 63 68 61 72 | 61 63 74 65 72 69 7a 69 |ses char|acterizi|
|00005310| 6e 67 20 56 69 70 65 72 | 27 73 20 61 6c 70 68 61 |ng Viper|'s alpha|
|00005320| 6e 75 6d 65 72 69 63 20 | 73 79 6d 62 6f 6c 73 2e |numeric |symbols.|
|00005330| 0a 49 6e 20 61 64 64 69 | 74 69 6f 6e 2c 20 74 68 |.In addi|tion, th|
|00005340| 65 20 73 79 6d 62 6f 6c | 20 60 5f 27 20 6d 61 79 |e symbol| `_' may|
|00005350| 20 62 65 20 63 6f 6e 73 | 69 64 65 72 65 64 20 61 | be cons|idered a|
|00005360| 6c 70 68 61 6e 75 6d 65 | 72 69 63 20 69 66 0a 60 |lphanume|ric if.`|
|00005370| 76 69 70 65 72 2d 73 79 | 6e 74 61 78 2d 70 72 65 |viper-sy|ntax-pre|
|00005380| 66 65 72 65 6e 63 65 27 | 20 69 73 20 60 73 74 72 |ference'| is `str|
|00005390| 69 63 74 2d 76 69 27 20 | 6f 72 20 60 72 65 66 6f |ict-vi' |or `refo|
|000053a0| 72 6d 65 64 2d 76 69 27 | 2e 0a 28 62 75 66 66 65 |rmed-vi'|..(buffe|
|000053b0| 72 20 6c 6f 63 61 6c 29 | 1f 0a 28 64 65 66 76 61 |r local)|..(defva|
|000053c0| 72 20 76 69 70 65 72 2d | 41 4c 50 48 41 2d 63 68 |r viper-|ALPHA-ch|
|000053d0| 61 72 2d 63 6c 61 73 73 | 20 22 77 22 20 28 23 24 |ar-class| "w" (#$|
|000053e0| 20 2e 20 32 31 32 32 37 | 29 29 0a 28 6d 61 6b 65 | . 21227|)).(make|
|000053f0| 2d 76 61 72 69 61 62 6c | 65 2d 62 75 66 66 65 72 |-variabl|e-buffer|
|00005400| 2d 6c 6f 63 61 6c 20 27 | 76 69 70 65 72 2d 41 4c |-local '|viper-AL|
|00005410| 50 48 41 2d 63 68 61 72 | 2d 63 6c 61 73 73 29 0a |PHA-char|-class).|
|00005420| 23 40 37 37 20 52 65 67 | 65 78 70 20 6d 61 74 63 |#@77 Reg|exp matc|
|00005430| 68 69 6e 67 20 74 68 65 | 20 73 65 74 20 6f 66 20 |hing the| set of |
|00005440| 61 6c 70 68 61 6e 75 6d | 65 72 69 63 20 63 68 61 |alphanum|eric cha|
|00005450| 72 61 63 74 65 72 73 20 | 61 63 63 65 70 74 61 62 |racters |acceptab|
|00005460| 6c 65 20 74 6f 20 73 74 | 72 69 63 74 0a 56 69 2e |le to st|rict.Vi.|
|00005470| 1f 0a 28 64 65 66 63 6f | 6e 73 74 20 76 69 70 65 |..(defco|nst vipe|
|00005480| 72 2d 73 74 72 69 63 74 | 2d 41 4c 50 48 41 2d 63 |r-strict|-ALPHA-c|
|00005490| 68 61 72 73 20 22 61 2d | 7a 41 2d 5a 30 2d 39 5f |hars "a-|zA-Z0-9_|
|000054a0| 22 20 28 23 24 20 2e 20 | 32 31 35 34 31 29 29 0a |" (#$ . |21541)).|
|000054b0| 23 40 37 37 20 52 65 67 | 65 78 70 20 6d 61 74 63 |#@77 Reg|exp matc|
|000054c0| 68 69 6e 67 20 74 68 65 | 20 73 65 74 20 6f 66 20 |hing the| set of |
|000054d0| 61 6c 70 68 61 6e 75 6d | 65 72 69 63 20 63 68 61 |alphanum|eric cha|
|000054e0| 72 61 63 74 65 72 73 20 | 61 63 63 65 70 74 61 62 |racters |acceptab|
|000054f0| 6c 65 20 74 6f 20 73 74 | 72 69 63 74 0a 56 69 2e |le to st|rict.Vi.|
|00005500| 1f 0a 28 64 65 66 63 6f | 6e 73 74 20 76 69 70 65 |..(defco|nst vipe|
|00005510| 72 2d 73 74 72 69 63 74 | 2d 53 45 50 2d 63 68 61 |r-strict|-SEP-cha|
|00005520| 72 73 20 22 20 09 5c 6e | 22 20 28 23 24 20 2e 20 |rs " .\n|" (#$ . |
|00005530| 32 31 36 38 35 29 29 0a | 23 40 37 37 20 52 65 67 |21685)).|#@77 Reg|
|00005540| 65 78 70 20 6d 61 74 63 | 68 69 6e 67 20 74 68 65 |exp matc|hing the|
|00005550| 20 73 65 74 20 6f 66 20 | 61 6c 70 68 61 6e 75 6d | set of |alphanum|
|00005560| 65 72 69 63 20 63 68 61 | 72 61 63 74 65 72 73 20 |eric cha|racters |
|00005570| 61 63 63 65 70 74 61 62 | 6c 65 20 74 6f 20 73 74 |acceptab|le to st|
|00005580| 72 69 63 74 0a 56 69 2e | 1f 0a 28 64 65 66 63 6f |rict.Vi.|..(defco|
|00005590| 6e 73 74 20 76 69 70 65 | 72 2d 73 74 72 69 63 74 |nst vipe|r-strict|
|000055a0| 2d 53 45 50 2d 63 68 61 | 72 73 2d 73 61 6e 73 2d |-SEP-cha|rs-sans-|
|000055b0| 6e 65 77 6c 69 6e 65 20 | 22 20 09 22 20 28 23 24 |newline |" ." (#$|
|000055c0| 20 2e 20 32 31 38 32 31 | 29 29 0a 23 40 39 34 20 | . 21821|)).#@94 |
|000055d0| 53 74 72 69 6e 67 20 6f | 66 20 73 79 6e 74 61 78 |String o|f syntax|
|000055e0| 20 63 6c 61 73 73 65 73 | 20 66 6f 72 20 56 69 20 | classes| for Vi |
|000055f0| 73 65 70 61 72 61 74 6f | 72 73 2e 0a 55 73 75 61 |separato|rs..Usua|
|00005600| 6c 6c 79 20 63 6f 6e 74 | 61 69 6e 73 20 60 20 27 |lly cont|ains ` '|
|00005610| 2c 20 6c 69 6e 65 66 65 | 65 64 2c 20 54 41 42 20 |, linefe|ed, TAB |
|00005620| 6f 72 20 66 6f 72 6d 66 | 65 65 64 2e 1f 0a 28 64 |or formf|eed...(d|
|00005630| 65 66 63 6f 6e 73 74 20 | 76 69 70 65 72 2d 53 45 |efconst |viper-SE|
|00005640| 50 2d 63 68 61 72 2d 63 | 6c 61 73 73 20 22 20 2d |P-char-c|lass " -|
|00005650| 22 20 28 23 24 20 2e 20 | 32 31 39 36 38 29 29 0a |" (#$ . |21968)).|
|00005660| 28 64 65 66 61 6c 69 61 | 73 20 27 76 69 70 65 72 |(defalia|s 'viper|
|00005670| 2d 75 70 64 61 74 65 2d | 73 79 6e 74 61 78 2d 63 |-update-|syntax-c|
|00005680| 6c 61 73 73 65 73 20 23 | 5b 28 26 6f 70 74 69 6f |lasses #|[(&optio|
|00005690| 6e 61 6c 20 73 65 74 2d | 64 65 66 61 75 6c 74 29 |nal set-|default)|
|000056a0| 20 22 08 c1 61 ab 83 c2 | aa 89 08 c3 61 ab 83 c4 | "..a...|....a...|
|000056b0| aa 81 c2 08 c5 61 ab 8e | 0e 06 1e 07 c8 c9 0e 07 |.....a..|........|
|000056c0| 21 ca 5c 22 29 aa 81 ca | 1e 0b 1e 0c 0e 0d ab 8d |!.\")...|........|
|000056d0| cd ce 0e 0c 5c 22 88 cd | cf 0e 0b 5c 22 aa 89 0e |....\"..|...\"...|
|000056e0| 0c 16 0e 0e 0b 89 16 0f | 2a 87 22 20 5b 76 69 70 |........|*." [vip|
|000056f0| 65 72 2d 73 79 6e 74 61 | 78 2d 70 72 65 66 65 72 |er-synta|x-prefer|
|00005700| 65 6e 63 65 20 65 6d 61 | 63 73 20 22 77 22 20 65 |ence ema|cs "w" e|
|00005710| 78 74 65 6e 64 65 64 20 | 22 77 5f 22 20 72 65 66 |xtended |"w_" ref|
|00005720| 6f 72 6d 65 64 2d 76 69 | 20 76 69 70 65 72 2d 6e |ormed-vi| viper-n|
|00005730| 6f 6e 2d 77 6f 72 64 2d | 63 68 61 72 61 63 74 65 |on-word-|characte|
|00005740| 72 73 2d 72 65 66 6f 72 | 6d 65 64 2d 76 69 20 73 |rs-refor|med-vi s|
|00005750| 74 72 69 6e 67 20 61 70 | 70 65 6e 64 20 76 63 6f |tring ap|pend vco|
|00005760| 6e 63 61 74 20 6e 69 6c | 20 6e 6f 6e 2d 77 6f 72 |ncat nil| non-wor|
|00005770| 64 2d 63 68 61 72 73 20 | 70 72 65 66 65 72 65 6e |d-chars |preferen|
|00005780| 63 65 20 73 65 74 2d 64 | 65 66 61 75 6c 74 20 76 |ce set-d|efault v|
|00005790| 69 70 65 72 2d 41 4c 50 | 48 41 2d 63 68 61 72 2d |iper-ALP|HA-char-|
|000057a0| 63 6c 61 73 73 20 76 69 | 70 65 72 2d 6e 6f 6e 2d |class vi|per-non-|
|000057b0| 77 6f 72 64 2d 63 68 61 | 72 61 63 74 65 72 73 5d |word-cha|racters]|
|000057c0| 20 34 5d 29 0a 23 40 32 | 31 31 20 53 65 74 20 56 | 4]).#@2|11 Set V|
|000057d0| 69 70 65 72 20 73 79 6e | 74 61 78 20 70 72 65 66 |iper syn|tax pref|
|000057e0| 65 72 65 6e 63 65 2e 0a | 49 66 20 63 61 6c 6c 65 |erence..|If calle|
|000057f0| 64 20 69 6e 74 65 72 61 | 63 74 69 76 65 6c 79 20 |d intera|ctively |
|00005800| 6f 72 20 69 66 20 53 59 | 4d 42 4f 4c 20 69 73 20 |or if SY|MBOL is |
|00005810| 6e 69 6c 2c 20 73 65 74 | 73 20 73 79 6e 74 61 78 |nil, set|s syntax|
|00005820| 20 70 72 65 66 65 72 65 | 6e 63 65 20 69 6e 20 63 | prefere|nce in c|
|00005830| 75 72 72 65 6e 74 0a 62 | 75 66 66 65 72 2e 20 49 |urrent.b|uffer. I|
|00005840| 66 20 63 61 6c 6c 65 64 | 20 6e 6f 6e 2d 69 6e 74 |f called| non-int|
|00005850| 65 72 61 63 74 69 76 65 | 6c 79 2c 20 70 72 65 66 |eractive|ly, pref|
|00005860| 65 72 61 62 6c 79 20 76 | 69 61 20 74 68 65 20 63 |erably v|ia the c|
|00005870| 75 73 74 6f 6d 69 7a 61 | 74 69 6f 6e 20 77 69 64 |ustomiza|tion wid|
|00005880| 67 65 74 2c 0a 73 65 74 | 73 20 74 68 65 20 64 65 |get,.set|s the de|
|00005890| 66 61 75 6c 74 20 76 61 | 6c 75 65 2e 1f 0a 28 64 |fault va|lue...(d|
|000058a0| 65 66 61 6c 69 61 73 20 | 27 76 69 70 65 72 2d 73 |efalias |'viper-s|
|000058b0| 65 74 2d 73 79 6e 74 61 | 78 2d 70 72 65 66 65 72 |et-synta|x-prefer|
|000058c0| 65 6e 63 65 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |ence #[(|&optiona|
|000058d0| 6c 20 73 79 6d 62 6f 6c | 20 76 61 6c 75 65 29 20 |l symbol| value) |
|000058e0| 22 08 ac 87 c1 c2 c3 c4 | c5 24 10 08 3b ab 84 c6 |".......|.$..;...|
|000058f0| 08 21 10 08 c7 73 ac 85 | c8 c9 08 5c 22 88 0e 5c |.!...s..|...\"..\|
|00005900| 6e ab 87 cb cc 08 5c 22 | 88 aa 83 08 16 0c cd 20 |n.....\"|....... |
|00005910| 87 22 20 5b 76 61 6c 75 | 65 20 63 6f 6d 70 6c 65 |." [valu|e comple|
|00005920| 74 69 6e 67 2d 72 65 61 | 64 20 22 56 69 70 65 72 |ting-rea|d "Viper|
|00005930| 20 73 79 6e 74 61 78 20 | 70 72 65 66 65 72 65 6e | syntax |preferen|
|00005940| 63 65 3a 20 22 20 28 28 | 22 73 74 72 69 63 74 2d |ce: " ((|"strict-|
|00005950| 76 69 22 29 20 28 22 72 | 65 66 6f 72 6d 65 64 2d |vi") ("r|eformed-|
|00005960| 76 69 22 29 20 28 22 65 | 78 74 65 6e 64 65 64 22 |vi") ("e|xtended"|
|00005970| 29 20 28 22 65 6d 61 63 | 73 22 29 29 20 6e 69 6c |) ("emac|s")) nil|
|00005980| 20 72 65 71 75 69 72 65 | 2d 6d 61 74 63 68 20 69 | require|-match i|
|00005990| 6e 74 65 72 6e 20 28 73 | 74 72 69 63 74 2d 76 69 |ntern (s|trict-vi|
|000059a0| 20 72 65 66 6f 72 6d 65 | 64 2d 76 69 20 65 78 74 | reforme|d-vi ext|
|000059b0| 65 6e 64 65 64 20 65 6d | 61 63 73 29 20 65 72 72 |ended em|acs) err|
|000059c0| 6f 72 20 22 49 6e 76 61 | 6c 69 64 20 56 69 70 65 |or "Inva|lid Vipe|
|000059d0| 72 20 73 79 6e 74 61 78 | 20 70 72 65 66 65 72 65 |r syntax| prefere|
|000059e0| 6e 63 65 2c 20 25 53 22 | 20 73 79 6d 62 6f 6c 20 |nce, %S"| symbol |
|000059f0| 73 65 74 2d 64 65 66 61 | 75 6c 74 20 76 69 70 65 |set-defa|ult vipe|
|00005a00| 72 2d 73 79 6e 74 61 78 | 2d 70 72 65 66 65 72 65 |r-syntax|-prefere|
|00005a10| 6e 63 65 20 76 69 70 65 | 72 2d 75 70 64 61 74 65 |nce vipe|r-update|
|00005a20| 2d 73 79 6e 74 61 78 2d | 63 6c 61 73 73 65 73 5d |-syntax-|classes]|
|00005a30| 20 35 20 28 23 24 20 2e | 20 32 32 34 37 35 29 20 | 5 (#$ .| 22475) |
|00005a40| 6e 69 6c 5d 29 0a 28 63 | 75 73 74 6f 6d 2d 64 65 |nil]).(c|ustom-de|
|00005a50| 63 6c 61 72 65 2d 76 61 | 72 69 61 62 6c 65 20 27 |clare-va|riable '|
|00005a60| 76 69 70 65 72 2d 73 79 | 6e 74 61 78 2d 70 72 65 |viper-sy|ntax-pre|
|00005a70| 66 65 72 65 6e 63 65 20 | 27 27 72 65 66 6f 72 6d |ference |''reform|
|00005a80| 65 64 2d 76 69 20 22 2a | 53 79 6e 74 61 78 20 74 |ed-vi "*|Syntax t|
|00005a90| 79 70 65 20 63 68 61 72 | 61 63 74 65 72 69 7a 69 |ype char|acterizi|
|00005aa0| 6e 67 20 56 69 70 65 72 | 27 73 20 61 6c 70 68 61 |ng Viper|'s alpha|
|00005ab0| 6e 75 6d 65 72 69 63 20 | 73 79 6d 62 6f 6c 73 2e |numeric |symbols.|
|00005ac0| 5c 6e 41 66 66 65 63 74 | 73 20 6d 6f 76 65 6d 65 |\nAffect|s moveme|
|00005ad0| 6e 74 20 61 6e 64 20 63 | 68 61 6e 67 65 20 63 6f |nt and c|hange co|
|00005ae0| 6d 6d 61 6e 64 73 20 74 | 68 61 74 20 64 65 61 6c |mmands t|hat deal|
|00005af0| 20 77 69 74 68 20 56 69 | 2d 73 74 79 6c 65 20 77 | with Vi|-style w|
|00005b00| 6f 72 64 73 2e 5c 6e 57 | 6f 72 6b 73 20 62 65 73 |ords.\nW|orks bes|
|00005b10| 74 20 77 68 65 6e 20 73 | 65 74 20 69 6e 20 74 68 |t when s|et in th|
|00005b20| 65 20 68 6f 6f 6b 73 20 | 74 6f 20 76 61 72 69 6f |e hooks |to vario|
|00005b30| 75 73 20 6d 61 6a 6f 72 | 20 6d 6f 64 65 73 2e 5c |us major| modes.\|
|00005b40| 6e 5c 6e 60 73 74 72 69 | 63 74 2d 76 69 27 20 6d |n\n`stri|ct-vi' m|
|00005b50| 65 61 6e 73 20 56 69 70 | 65 72 20 77 6f 72 64 73 |eans Vip|er words|
|00005b60| 20 61 72 65 20 28 68 6f | 70 65 66 75 6c 6c 79 29 | are (ho|pefully)|
|00005b70| 20 65 78 61 63 74 6c 79 | 20 61 73 20 69 6e 20 56 | exactly| as in V|
|00005b80| 69 2e 5c 6e 5c 6e 60 72 | 65 66 6f 72 6d 65 64 2d |i.\n\n`r|eformed-|
|00005b90| 76 69 27 20 6d 65 61 6e | 73 20 56 69 70 65 72 20 |vi' mean|s Viper |
|00005ba0| 77 6f 72 64 73 20 61 72 | 65 20 6c 69 6b 65 20 45 |words ar|e like E|
|00005bb0| 6d 61 63 73 20 77 6f 72 | 64 73 20 28 61 73 20 64 |macs wor|ds (as d|
|00005bc0| 65 74 65 72 6d 69 6e 65 | 64 20 75 73 69 6e 67 5c |etermine|d using\|
|00005bd0| 6e 45 6d 61 63 73 20 73 | 79 6e 74 61 78 20 74 61 |nEmacs s|yntax ta|
|00005be0| 62 6c 65 73 2c 20 77 68 | 69 63 68 20 61 72 65 20 |bles, wh|ich are |
|00005bf0| 64 69 66 66 65 72 65 6e | 74 20 66 6f 72 20 64 69 |differen|t for di|
|00005c00| 66 66 65 72 65 6e 74 20 | 6d 61 6a 6f 72 20 6d 6f |fferent |major mo|
|00005c10| 64 65 73 29 20 77 69 74 | 68 20 74 77 6f 5c 6e 65 |des) wit|h two\ne|
|00005c20| 78 63 65 70 74 69 6f 6e | 73 3a 20 74 68 65 20 73 |xception|s: the s|
|00005c30| 79 6d 62 6f 6c 20 60 5f | 27 20 69 73 20 61 6c 77 |ymbol `_|' is alw|
|00005c40| 61 79 73 20 70 61 72 74 | 20 6f 66 20 61 20 77 6f |ays part| of a wo|
|00005c50| 72 64 20 61 6e 64 20 74 | 79 70 69 63 61 6c 20 56 |rd and t|ypical V|
|00005c60| 69 20 6e 6f 6e 2d 77 6f | 72 64 5c 6e 73 79 6d 62 |i non-wo|rd\nsymb|
|00005c70| 6f 6c 73 2c 20 73 75 63 | 68 20 61 73 20 60 2c 27 |ols, suc|h as `,'|
|00005c80| 2c 3a 2c 5c 22 2c 29 2c | 7b 2c 20 65 74 63 2e 2c |,:,\",),|{, etc.,|
|00005c90| 20 61 72 65 20 65 78 63 | 6c 75 64 65 64 2e 5c 6e | are exc|luded.\n|
|00005ca0| 54 68 69 73 20 62 65 68 | 61 76 65 73 20 76 65 72 |This beh|aves ver|
|00005cb0| 79 20 63 6c 6f 73 65 20 | 74 6f 20 60 73 74 72 69 |y close |to `stri|
|00005cc0| 63 74 2d 76 69 27 2c 20 | 62 75 74 20 61 6c 73 6f |ct-vi', |but also|
|00005cd0| 20 77 6f 72 6b 73 20 77 | 65 6c 6c 20 77 69 74 68 | works w|ell with|
|00005ce0| 20 6e 6f 6e 2d 41 53 43 | 49 49 5c 6e 63 68 61 72 | non-ASC|II\nchar|
|00005cf0| 61 63 74 65 72 73 20 66 | 72 6f 6d 20 76 61 72 69 |acters f|rom vari|
|00005d00| 6f 75 73 20 61 6c 70 68 | 61 62 65 74 73 2e 5c 6e |ous alph|abets.\n|
|00005d10| 5c 6e 60 65 78 74 65 6e | 64 65 64 27 20 6d 65 61 |\n`exten|ded' mea|
|00005d20| 6e 73 20 56 69 70 65 72 | 20 77 6f 72 64 20 63 6f |ns Viper| word co|
|00005d30| 6e 73 74 69 74 75 65 6e | 74 73 20 61 72 65 20 73 |nstituen|ts are s|
|00005d40| 79 6d 62 6f 6c 73 20 74 | 68 61 74 20 61 72 65 20 |ymbols t|hat are |
|00005d50| 6d 61 72 6b 65 64 20 61 | 73 20 62 65 69 6e 67 5c |marked a|s being\|
|00005d60| 6e 70 61 72 74 73 20 6f | 66 20 77 6f 72 64 73 20 |nparts o|f words |
|00005d70| 4f 52 20 73 79 6d 62 6f | 6c 73 20 69 6e 20 45 6d |OR symbo|ls in Em|
|00005d80| 61 63 73 20 73 79 6e 74 | 61 78 20 74 61 62 6c 65 |acs synt|ax table|
|00005d90| 73 2e 5c 6e 54 68 69 73 | 20 69 73 20 6d 6f 73 74 |s.\nThis| is most|
|00005da0| 20 61 70 70 72 6f 70 72 | 69 61 74 65 20 66 6f 72 | appropr|iate for|
|00005db0| 20 6d 61 6a 6f 72 20 6d | 6f 64 65 73 20 69 6e 74 | major m|odes int|
|00005dc0| 65 6e 64 65 64 20 66 6f | 72 20 65 64 69 74 69 6e |ended fo|r editin|
|00005dd0| 67 20 70 72 6f 67 72 61 | 6d 73 2e 5c 6e 5c 6e 60 |g progra|ms.\n\n`|
|00005de0| 65 6d 61 63 73 27 20 6d | 65 61 6e 73 20 56 69 70 |emacs' m|eans Vip|
|00005df0| 65 72 20 77 6f 72 64 73 | 20 61 72 65 20 74 68 65 |er words| are the|
|00005e00| 20 73 61 6d 65 20 61 73 | 20 45 6d 61 63 73 20 77 | same as| Emacs w|
|00005e10| 6f 72 64 73 20 61 73 20 | 73 70 65 63 69 66 69 65 |ords as |specifie|
|00005e20| 64 20 62 79 20 45 6d 61 | 63 73 5c 6e 73 79 6e 74 |d by Ema|cs\nsynt|
|00005e30| 61 78 20 74 61 62 6c 65 | 73 2e 5c 6e 54 68 69 73 |ax table|s.\nThis|
|00005e40| 20 6f 70 74 69 6f 6e 20 | 69 73 20 61 70 70 72 6f | option |is appro|
|00005e50| 70 72 69 61 74 65 20 69 | 66 20 79 6f 75 20 6c 69 |priate i|f you li|
|00005e60| 6b 65 20 45 6d 61 63 73 | 2d 73 74 79 6c 65 20 77 |ke Emacs|-style w|
|00005e70| 6f 72 64 73 2e 22 20 3a | 74 79 70 65 20 27 28 72 |ords." :|type '(r|
|00005e80| 61 64 69 6f 20 28 63 6f | 6e 73 74 20 73 74 72 69 |adio (co|nst stri|
|00005e90| 63 74 2d 76 69 29 20 28 | 63 6f 6e 73 74 20 72 65 |ct-vi) (|const re|
|00005ea0| 66 6f 72 6d 65 64 2d 76 | 69 29 20 28 63 6f 6e 73 |formed-v|i) (cons|
|00005eb0| 74 20 65 78 74 65 6e 64 | 65 64 29 20 28 63 6f 6e |t extend|ed) (con|
|00005ec0| 73 74 20 65 6d 61 63 73 | 29 29 20 3a 73 65 74 20 |st emacs|)) :set |
|00005ed0| 27 76 69 70 65 72 2d 73 | 65 74 2d 73 79 6e 74 61 |'viper-s|et-synta|
|00005ee0| 78 2d 70 72 65 66 65 72 | 65 6e 63 65 20 3a 67 72 |x-prefer|ence :gr|
|00005ef0| 6f 75 70 20 27 76 69 70 | 65 72 29 0a 28 6d 61 6b |oup 'vip|er).(mak|
|00005f00| 65 2d 76 61 72 69 61 62 | 6c 65 2d 62 75 66 66 65 |e-variab|le-buffe|
|00005f10| 72 2d 6c 6f 63 61 6c 20 | 27 76 69 70 65 72 2d 73 |r-local |'viper-s|
|00005f20| 79 6e 74 61 78 2d 70 72 | 65 66 65 72 65 6e 63 65 |yntax-pr|eference|
|00005f30| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 76 69 70 |).(defal|ias 'vip|
|00005f40| 65 72 2d 6c 6f 6f 6b 69 | 6e 67 2d 61 74 2d 61 6c |er-looki|ng-at-al|
|00005f50| 70 68 61 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |pha #[(&|optional|
|00005f60| 20 61 64 64 6c 2d 63 68 | 61 72 73 29 20 22 08 3b | addl-ch|ars) ".;|
|00005f70| ac 82 c1 10 5c 6e c3 61 | ab 84 08 c4 50 10 60 66 |....\n.a|....P.`f|
|00005f80| 89 1d ad b4 5c 6e c6 61 | ab 8a c7 c8 0e 09 08 ca |....\n.a|........|
|00005f90| 52 21 aa a5 0d 08 1e 0b | cc cd 0e 0b 21 ce 5c 22 |R!......|....!.\"|
|00005fa0| 29 73 ae 96 0d 0e 0f 73 | 3f ad 8f 0d 7a 0e 10 1e |)s.....s|?...z...|
|00005fb0| 0b cc cd 0e 0b 21 ce 5c | 22 29 73 29 87 22 20 5b |.....!.\|")s)." [|
|00005fc0| 61 64 64 6c 2d 63 68 61 | 72 73 20 22 22 20 76 69 |addl-cha|rs "" vi|
|00005fd0| 70 65 72 2d 73 79 6e 74 | 61 78 2d 70 72 65 66 65 |per-synt|ax-prefe|
|00005fe0| 72 65 6e 63 65 20 72 65 | 66 6f 72 6d 65 64 2d 76 |rence re|formed-v|
|00005ff0| 69 20 22 5f 22 20 63 68 | 61 72 20 73 74 72 69 63 |i "_" ch|ar stric|
|00006000| 74 2d 76 69 20 6c 6f 6f | 6b 69 6e 67 2d 61 74 20 |t-vi loo|king-at |
|00006010| 22 5b 22 20 76 69 70 65 | 72 2d 73 74 72 69 63 74 |"[" vipe|r-strict|
|00006020| 2d 41 4c 50 48 41 2d 63 | 68 61 72 73 20 22 5d 22 |-ALPHA-c|hars "]"|
|00006030| 20 73 74 72 69 6e 67 20 | 61 70 70 65 6e 64 20 76 | string |append v|
|00006040| 63 6f 6e 63 61 74 20 6e | 69 6c 20 76 69 70 65 72 |concat n|il viper|
|00006050| 2d 6e 6f 6e 2d 77 6f 72 | 64 2d 63 68 61 72 61 63 |-non-wor|d-charac|
|00006060| 74 65 72 73 20 76 69 70 | 65 72 2d 41 4c 50 48 41 |ters vip|er-ALPHA|
|00006070| 2d 63 68 61 72 2d 63 6c | 61 73 73 5d 20 36 5d 29 |-char-cl|ass] 6])|
|00006080| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 76 69 70 65 |.(defali|as 'vipe|
|00006090| 72 2d 6c 6f 6f 6b 69 6e | 67 2d 61 74 2d 73 65 70 |r-lookin|g-at-sep|
|000060a0| 61 72 61 74 6f 72 20 23 | 5b 6e 69 6c 20 22 60 66 |arator #|[nil "`f|
|000060b0| 89 18 ad a4 09 c2 61 ab | 8d 08 0b 1c c5 c6 0c 21 |......a.|.......!|
|000060c0| c7 5c 22 29 73 aa 92 08 | c8 61 ae 8d 08 7a 0e 09 |.\")s...|.a...z..|
|000060d0| 1c c5 c6 0c 21 c7 5c 22 | 29 73 29 87 22 20 5b 63 |....!.\"|)s)." [c|
|000060e0| 68 61 72 20 76 69 70 65 | 72 2d 73 79 6e 74 61 78 |har vipe|r-syntax|
|000060f0| 2d 70 72 65 66 65 72 65 | 6e 63 65 20 73 74 72 69 |-prefere|nce stri|
|00006100| 63 74 2d 76 69 20 76 69 | 70 65 72 2d 73 74 72 69 |ct-vi vi|per-stri|
|00006110| 63 74 2d 53 45 50 2d 63 | 68 61 72 73 20 73 74 72 |ct-SEP-c|hars str|
|00006120| 69 6e 67 20 61 70 70 65 | 6e 64 20 76 63 6f 6e 63 |ing appe|nd vconc|
|00006130| 61 74 20 6e 69 6c 20 3f | 5c 6e 20 76 69 70 65 72 |at nil ?|\n viper|
|00006140| 2d 53 45 50 2d 63 68 61 | 72 2d 63 6c 61 73 73 5d |-SEP-cha|r-class]|
|00006150| 20 35 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 | 5]).(de|falias '|
|00006160| 76 69 70 65 72 2d 6c 6f | 6f 6b 69 6e 67 2d 61 74 |viper-lo|oking-at|
|00006170| 2d 61 6c 70 68 61 73 65 | 70 20 23 5b 28 26 6f 70 |-alphase|p #[(&op|
|00006180| 74 69 6f 6e 61 6c 20 61 | 64 64 6c 2d 63 68 61 72 |tional a|ddl-char|
|00006190| 73 29 20 22 c0 20 ae 83 | c1 5c 6e 21 87 22 20 5b |s) ". ..|.\n!." [|
|000061a0| 76 69 70 65 72 2d 6c 6f | 6f 6b 69 6e 67 2d 61 74 |viper-lo|oking-at|
|000061b0| 2d 73 65 70 61 72 61 74 | 6f 72 20 76 69 70 65 72 |-separat|or viper|
|000061c0| 2d 6c 6f 6f 6b 69 6e 67 | 2d 61 74 2d 61 6c 70 68 |-looking|-at-alph|
|000061d0| 61 20 61 64 64 6c 2d 63 | 68 61 72 73 5d 20 32 5d |a addl-c|hars] 2]|
|000061e0| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |).(byte-|code "..|
|000061f0| 4e c2 73 ac 85 c3 c4 c0 | 5c 22 88 c5 c0 c1 c6 23 |N.s.....|\".....#|
|00006200| 87 22 20 5b 76 69 70 65 | 72 2d 6c 6f 6f 6b 69 6e |." [vipe|r-lookin|
|00006210| 67 2d 61 74 2d 61 6c 70 | 68 61 73 65 70 20 62 79 |g-at-alp|hasep by|
|00006220| 74 65 2d 6f 70 74 69 6d | 69 7a 65 72 20 28 6e 69 |te-optim|izer (ni|
|00006230| 6c 20 62 79 74 65 2d 63 | 6f 6d 70 69 6c 65 2d 69 |l byte-c|ompile-i|
|00006240| 6e 6c 69 6e 65 2d 65 78 | 70 61 6e 64 29 20 65 72 |nline-ex|pand) er|
|00006250| 72 6f 72 20 22 25 73 20 | 61 6c 72 65 61 64 79 20 |ror "%s |already |
|00006260| 68 61 73 20 61 20 62 79 | 74 65 2d 6f 70 74 69 6d |has a by|te-optim|
|00006270| 69 7a 65 72 2c 20 63 61 | 6e 27 74 20 6d 61 6b 65 |izer, ca|n't make|
|00006280| 20 69 74 20 69 6e 6c 69 | 6e 65 22 20 70 75 74 20 | it inli|ne" put |
|00006290| 62 79 74 65 2d 63 6f 6d | 70 69 6c 65 2d 69 6e 6c |byte-com|pile-inl|
|000062a0| 69 6e 65 2d 65 78 70 61 | 6e 64 5d 20 34 29 0a 28 |ine-expa|nd] 4).(|
|000062b0| 64 65 66 61 6c 69 61 73 | 20 27 76 69 70 65 72 2d |defalias| 'viper-|
|000062c0| 73 6b 69 70 2d 61 6c 70 | 68 61 2d 66 6f 72 77 61 |skip-alp|ha-forwa|
|000062d0| 72 64 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |rd #[(&o|ptional |
|000062e0| 61 64 64 6c 2d 63 68 61 | 72 73 29 20 22 08 3b ac |addl-cha|rs) ".;.|
|000062f0| 82 c1 10 c2 c3 0c c5 61 | ab 83 c1 aa 82 0e 06 0c |.......a|........|
|00006300| c5 61 ab 86 0e 07 08 50 | aa 81 08 23 87 22 20 5b |.a.....P|...#." [|
|00006310| 61 64 64 6c 2d 63 68 61 | 72 73 20 22 22 20 76 69 |addl-cha|rs "" vi|
|00006320| 70 65 72 2d 73 6b 69 70 | 2d 73 79 6e 74 61 78 20 |per-skip|-syntax |
|00006330| 66 6f 72 77 61 72 64 20 | 76 69 70 65 72 2d 73 79 |forward |viper-sy|
|00006340| 6e 74 61 78 2d 70 72 65 | 66 65 72 65 6e 63 65 20 |ntax-pre|ference |
|00006350| 73 74 72 69 63 74 2d 76 | 69 20 76 69 70 65 72 2d |strict-v|i viper-|
|00006360| 41 4c 50 48 41 2d 63 68 | 61 72 2d 63 6c 61 73 73 |ALPHA-ch|ar-class|
|00006370| 20 76 69 70 65 72 2d 73 | 74 72 69 63 74 2d 41 4c | viper-s|trict-AL|
|00006380| 50 48 41 2d 63 68 61 72 | 73 5d 20 35 5d 29 0a 28 |PHA-char|s] 5]).(|
|00006390| 64 65 66 61 6c 69 61 73 | 20 27 76 69 70 65 72 2d |defalias| 'viper-|
|000063a0| 73 6b 69 70 2d 61 6c 70 | 68 61 2d 62 61 63 6b 77 |skip-alp|ha-backw|
|000063b0| 61 72 64 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |ard #[(&|optional|
|000063c0| 20 61 64 64 6c 2d 63 68 | 61 72 73 29 20 22 08 3b | addl-ch|ars) ".;|
|000063d0| ac 82 c1 10 c2 c3 0c c5 | 61 ab 83 c1 aa 82 0e 06 |........|a.......|
|000063e0| 0c c5 61 ab 86 0e 07 08 | 50 aa 81 08 23 87 22 20 |..a.....|P...#." |
|000063f0| 5b 61 64 64 6c 2d 63 68 | 61 72 73 20 22 22 20 76 |[addl-ch|ars "" v|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
